<%
Call DoPageHeader
Call OpenDBConn
iID = Request.QueryString("ID")
gsSQL = ""
gsSQL = gsSQL & "SELECT * FROM Auctions WHERE ItemID = " & SQLVal(iID)
Set rs = GobjConnect.Execute(gsSQL)
sSQL = ""
sSQL = sSQL & "SELECT * FROM registration WHERE ID = " & SQLVal(rs.Fields("ItemOwner"))
set UserRS = GobjConnect.Execute(sSQL)
bidsSQL = ""
bidsSQL = bidsSQL & "SELECT * FROM Bids Where ItemID = " & SQLVal(iID) & " ORDER BY BidDate DESC "
Set bidsRS = GobjConnect.Execute(bidsSQL)
Response.Write("")
Response.Write("Detalhes do Item")
Response.Write("")
Response.Write("")
Response.Write("| |
")
Response.Write("| " & rs.Fields("ItemTitle") & " |
")
Response.Write("Actual Oferta: " & FormatNumber(rs.Fields("CurrentBid"), 2) & " Euros")
Response.Write("
Data de fecho (Mês-Dia-Ano): " & rs.Fields("CloseDate") & " | ")
Response.Write("Localização: " & UserRS.Fields("city") & ", " & UserRS.Fields("state") & "
")
Response.Write("Possuidor do Item: " & BidderName(rs.Fields("ItemOwner")) & "
")
Response.Write(" | ")
Response.Write(" |
")
Response.Write("| |
")
Response.Write("")
If rs.Fields("CloseDate") < NOW Then
Response.Write("As ofertas foram encerradas para este Item.
")
EndSQL = ""
EndSQL = EndSQL & "UPDATE Auctions SET Ended = true WHERE ItemID = " & SQLVal(iID)
GobjConnect.Execute(EndSQL)
If rs.Fields("EmailsSent") = false Then
Call SendEmails
End If
End If
Response.Write("" & rs.Fields("Description") & " |
")
'Check for image
If LEN(TRIM(rs.Fields("ImageURL"))) <> 0 Then
Response.Write(" & rs.Fields() |
")
End If
Response.Write("")
Response.Write("")
Response.Write("")
Response.Write("
Histórico das ofertas | ")
Response.Write("")
If bidsRS.eof Then
Response.Write(" | Ainda não existem ofertas | ")
Else
Do While Not bidsRS.eof
Response.Write("")
Response.Write("| " & FormatNumber(bidsRS.Fields("BidAmount"), 2) & " Euros | ")
Response.Write("" & BidderName(bidsRS.Fields("BidderID")) & "(" & bidsRS.Fields("BidDate") & ") | ")
bidsRS.MoveNext
Loop
End If
Response.Write(" ")
Response.Write(" |
")
If rs.Fields("CloseDate") > NOW Then
Response.Write("")
End If
Response.Write(" |
")
Response.Write("| ")
Call AuctionNavigation
Response.Write(" |
")
Response.Write("| |
")
Response.Write("
")
UserRS.Close
Set UserRS = Nothing
bidsRS.Close
Set bidsRS = Nothing
rs.Close
Set rs = Nothing
Call DoPageFooter
Call CloseDBConn
Sub SendEmails
emailSQL = ""
emailSQL = emailSQL & "SELECT * FROM registration WHERE ID = " & SQLVal(rs.Fields("CurrentBidder"))
Set emailRS = GobjConnect.Execute(emailSQL)
ownerSQL = ""
ownerSQL = ownerSQL & "SELECT * FROM registration WHERE ID = " & SQLVal(rs.Fields("ItemOwner"))
Set ownerRS = GobjConnect.Execute(ownerSQL)
'*********Email To Auction Winner********
sBody = ""
sBody = sBody & "Parabéns! Colocou a oferta vencedora sobre o item número " & rs.Fields("ItemID") & " : "
sBody = sBody & rs.Fields("ItemTitle") & ". " & chr(13) & chr(13)
sBody = sBody & "A sua oferta mais alta foi " & FormatNumber(rs.Fields("CurrentBid"), 2) & " Euros. " & chr(13) & chr(13)
sBody = sBody & "O possuidor do item é:" & chr(13)
sBody = sBody & ownerRS.Fields("Name") & chr(13)
sBody = sBody & ownerRS.Fields("Address1") & chr(13)
If Len(Trim(ownerRS.Fields("Address2"))) > 0 Then
sBody = sBody & ownerRS.Fields("Address2") & chr(13)
End If
sBody = sBody & ownerRS.Fields("City") & ", " & ownerRS.Fields("State") & " " & ownerRS.Fields("Zip") & " " & ownerRS.Fields("Country") & chr(13)
sBody = sBody & chr(13) & "Email : mailto:" & ownerRS.Fields("Email") & chr(13) & chr(13)
sBody = sBody & "Pode responder para este email para o possuidor do item, ou esperar que este o contacte para concluir o negócio."
sBody = sBody & chr(10) & chr(13)
sBody = sBody & "Obrigado por usar o leilão do figueiraonline.com" & chr(13)
sBody = sBody & ""
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = emailRS.Fields("Email")
objCDO.From = ownerRS.Fields("Email")
objCDO.Subject = "Leilão figueiraonline.com - Oferta vencedora - " & rs.Fields("ItemTitle")
objCDO.Body = sBody
objCDO.Send
'*********Email to Item Owner***********
sOwner = ""
sOwner = sOwner & "Fim do leilão do item número " & rs.Fields("ItemID") & ": "
sOwner = sOwner & rs.Fields("ItemTitle") & ". " & chr(13) & chr(13)
sOwner = sOwner & "A oferta mais alta foi de " & FormatNumber(rs.Fields("CurrentBid"), 2) & " Euros. " & chr(13) & chr(13)
sOwner = sOwner & "A oferta vencedora foi colocada por:" & chr(13) & chr(13)
sOwner = sOwner & emailRS.Fields("Name") & chr(13)
sOwner = sOwner & emailRS.Fields("Address1") & chr(13)
If Len(Trim(emailRS.Fields("Address2"))) > 0 Then
sOwner = sOwner & emailRS.Fields("Address2") & chr(13)
End If
sOwner = sOwner & emailRS.Fields("City") & ", " & emailRS.Fields("State") & " " & emailRS.Fields("Zip") & " " & emailRS.Fields("Country") & chr(13)
sOwner = sOwner & chr(13) & "Email : mailto:" & emailRS.Fields("Email") & chr(13)
sOwner = sOwner & "Pode responder para este email para o vencedor do leilão."
sOwner = sOwner & chr(10) & chr(13)
sOwner = sOwner & "Obrigado por usar os leilões do figueiraonline.com" & chr(13)
sOwner = sOwner & ""
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = ownerRS.Fields("Email")
objCDO.From = emailRS.Fields("Email")
objCDO.Subject = "End of Auction - " & rs.Fields("ItemTitle")
objCDO.Body = sOwner
objCDO.Send
EmailSentSQL = ""
EmailSentSQL = EmailSentSQL & "UPDATE Auctions SET EmailsSent = true WHERE ItemID = " & SQLVal(iID)
GobjConnect.Execute(EmailSentSQL)
sBody = ""
sOwner = ""
emailRS.Close
Set emailRS = Nothing
ownerRS.Close
Set ownerRS = Nothing
End Sub
Sub SendOutbidEmail
emailSQL = ""
emailSQL = emailSQL & "SELECT ID, Email, UserID FROM UserInfo WHERE UserID = " & SQLVal(bidRS.Fields("CurrentBidder"))
Set emailRS = GobjConnect.Execute(emailSQL)
sBody = ""
sBody = sBody & "A sua oferta para o item número " & bidRS.Fields("ItemID") & "foi ultrapassada:" & chr(13)
sBody = sBody & bidRS.Fields("ItemTitle") & ". " & chr(13)
sBody = sBody & "A actual oferta é de " & FormatNumber(iBid, 2) & " Euros. " & chr(13)
sBody = sBody & "Para colocar uma nova oferta para este item vá a " & chr(13)
sBody = sBody & sAuctPath & "viewitem.asp?ID=" & iItemID & chr(13)
sBody = sBody & chr(10) & chr(13)
sBody = sBody & "Obrigado por usar os leilões do figueiraonline.com" & chr(13)
sBody = sBody & ""
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = emailRS.Fields("Email")
objCDO.From = "Leilões - figueiraonline.com"
objCDO.Subject = "A sua oferta foi ultrapassada - " & bidRS.Fields("ItemTitle")
objCDO.Body = sBody
objCDO.Send
End Sub
Function BidderName(BidderID)
UserNameSQL = ""
UserNameSQL = UserNameSQL & "SELECT ID, username FROM Registration WHERE ID = " & SQLVal(BidderID)
Set UserNameRS = GobjConnect.Execute(UserNameSQL)
BidderName = UserNameRS.Fields("username")
UserNameRS.Close
Set UserNameRS = Nothing
End Function
%>