<%
Call DoPageHeader
Call OpenDBConn
sUserName = Request.Form("UserName")
sPassword = Request.Form("Password")
iBidPlaced = FVal(Request.Form("Bid"))
iItemID = Request.Form("ItemID")
regSQL = ""
regSQL = regSQL & "SELECT COUNT(*) as Total FROM registration WHERE username = " & SQLStr(sUserName) & " AND password = " & SQLStr(sPassword) & " "
Set regRS = GobjConnect.Execute(regSQL)
bidSQL = ""
bidSQL = bidSQL & "SELECT * FROM Auctions WHERE ItemID =" & SQLVal(iItemID)
set bidRS = GobjConnect.Execute(bidSQL)
iBidNeeded = FVal(bidRS.Fields("MinimumIncrement") + bidRS.Fields("CurrentBid"))
If UserRegistered Then
If CheckBid Then
Call PlaceBid
Call SendOutbidEmail
End If
End If
BidRS.Close
Set BidRS = Nothing
Call DoPageFooter
Call CloseDBConn
Sub PlaceBid
uiSQL = ""
uiSQL = uiSQL & "SELECT * FROM Registration WHERE username = " & SQLStr(sUserName) & " AND password = " & SQLStr(sPassword) & " "
Set UserRS = GobjConnect.Execute(uiSQL)
pbSQL = ""
pbSQL = pbSQL & " UPDATE Auctions Set "
pbSQL = pbSQL & " CurrentBid = " & SQLVal(iBidPlaced)
pbSQL = pbSQL & " , CurrentBidder = " & SQLVal(UserRS.Fields("ID")) & " "
pbSQL = pbSQL & " WHERE ItemID = " & bidRS.Fields("ItemID") & " "
'Response.write pbSQL & "
"
GobjConnect.Execute(pbSQL)
upbidsSQL = ""
upBidsSQL = upBidsSQL & "INSERT INTO Bids (ItemID, BidAmount, BidDate, BidderID) "
upBidsSQL = upBidsSQL & " VALUES( "
upBidsSQL = upBidsSQL & SQLVal(iItemID) & ", "
upBidsSQL = upBidsSQL & SQLVal(iBidPlaced) & ", "
upBidsSQL = upBidsSQL & SQLDate(NOW) & ", "
upBidsSQL = upBidsSQL & SQLVal(UserRS.Fields("ID")) & " ) "
GobjConnect.Execute(upBidsSQL)
'Response.Write upBidsSQL & "
"
Response.Write("A sua oferta de " & FormatNumber(iBidPlaced, 2) & " Euros foi colocada com sucesso no item número (" & bidRS.Fields("ItemID"))
Response.Write(") " & bidRS.Fields("ItemTitle") & "
em " & NOW & ".
")
Response.Write("Pode imprimir para confirmar a sua oferta.
")
Response.Write("Clique aqui para voltar atrás à categoria principal.
")
Response.Write("Clique aqui para voltar ao Item #" & bidRS.Fields("ItemID") & ".
")
End Sub
Sub SendOutbidEmail
emailSQL = ""
emailSQL = emailSQL & "SELECT ID, Email FROM registration WHERE ID = " & SQLVal(bidRS.Fields("CurrentBidder"))
Set emailRS = GobjConnect.Execute(emailSQL)
porra= emailRS.Fields("Email")
sBody = ""
sBody = sBody & "A sua oferta foi ultrapassada no item número " & bidRS.Fields("ItemID") & ":" & chr(13)
sBody = sBody & bidRS.Fields("ItemTitle") & ". " & chr(13) & chr(13)
sBody = sBody & "A actual oferta é de " & FormatNumber(iBidPlaced, 2) & " Euros. " & chr(13) & chr(13)
sBody = sBody & "Para colocar outra oferta neste 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 o leilão do figueiraonline.com" & chr(13)
sBody = sBody & ""
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "" & mailsrv & ""
Mailer.AddRecipient " ","" & porra & ""
Mailer.FromName = "Leilões - figueiraonline.com"
Mailer.FromAddress = "" & emailsrv & ""
Mailer.Subject = "A sua oferta foi ultrapassada - " & bidRS.Fields("ItemTitle")
Mailer.BodyText = sBody
if Mailer.SendMail then
Response.Write " "
else Response.Write "Houve um erro, por favor contacte " & emailsrv & ". Error was "& Mailer.Response
end if
End Sub
Function CheckBid
If iBidPlaced >= iBidNeeded Then
CheckBid = True
Else
Response.Write("
Desculpe, mas existe algum erro com a sua oferta.
")
Response.Write("Por favor use o botão ""RETROCEDER"" do seu browser para tentar de novo.
")
CheckBid = False
End If
End Function
Function UserRegistered
If regRS.Fields("Total") = 1 Then
UserRegistered = True
Else
Response.Write("Existe algum erro com o seu UserName/Password.
")
Response.Write("Por favor use o botão ""RETROCEDER"" do seu browser para voltar a tentar.
")
Response.Write("Se não está registado, clique AQUI para se registar agora.")
UserRegistered = False
End If
regRS.Close
Set regRS = Nothing
End Function
%>