<% sUserName = Request.Form("UserName") sPassword = Request.Form("Password") sTitle = Request.Form("Title") iCat = Request.Form("Category") iDays = FVal(Request.Form("Days")) sImageURL = Request.Form("ImageURL") sDescription = Request.Form("Description") iStartingBid = FVal(Request.Form("StartBid")) iIncrement = FVal(Request.Form("Increment")) dCloseDate = DateAdd("d", iDays, NOW) Call OpenDBConn Call DoPageHeader If iDays <= iMaxAuctionDays Then regSQL = "" regSQL = regSQL & "SELECT COUNT(*) as Total FROM Registration WHERE username = " & SQLStr(sUserName) & " AND password = " & SQLStr(sPassword) & " " Set regRS = GobjConnect.Execute(regSQL) If regRS.Fields("Total") = 1 then ValSQL = "" ValSQL =ValSQL & "SELECT * FROM Registration WHERE username = " & SQLStr(sUserName) & " AND password = " & SQLStr(sPassword) & " " set valRS = GobjConnect.Execute(ValSQL) If valRS.Fields("Validated") = true Then 'Response.Write("Validado
") Call InsertAd Else 'Response.Write("Não Validado
") Call PostDenied End If Else Call PostDenied End If Else Response.Write("Desculpe mas só pode colocar um leilão até ao máximo de " & iMaxAuctionDays & " dias.
") Response.Write("Clique no botão RETROCEDER do seu browser para continuar.
") End If Sub InsertAd userSQL = "" userSQL = userSQL & "SELECT * FROM registration WHERE " userSQL = userSQL & "username = " & SQLStr(sUserName) & " AND password = " & SQLStr(sPassword) Set UserRS = GobjConnect.Execute(userSQL) Response.Write("") Response.Write("

Item a leiloar
") Response.Write("Se todos os dados estiverem correctos, clique no botão ""LEILOAR"" em baixo.
") Response.Write("Se pretende corrigir alguma informação, use o botão ""RETROCEDER"" do seu browser para o fazer.
") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") 'Check for image If LEN(TRIM(sImageURL)) > 0 Then Response.Write("") End If Response.Write("") Response.Write("") Response.Write("") Response.Write("

" & sTitle & "
Oferta actual: " & FormatNumber(iStartingBid, 2) & " Euros") Response.Write(" Data de fecho(Mês-Dia-Ano): " & dCloseDate & "	Localização: " & UserRS.Fields("city") & ", " & UserRS.Fields("state") & " ") Response.Write("Possuidor do item: " & UserRS.Fields("UserName") & " ") Response.Write("
") Response.Write("" & sDescription & "
") Response.Write("Próxima oferta - " & FormatNumber((iStartingBid + iIncrement), 2) & " Euros
") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("

") End Sub Sub PostDenied Response.Write("") Response.Write("Desculpe, mas o seu username e/ou password estão errados.
") Response.Write("Clique no botão ""RETROCEDER"" do seu browser para voltar a tentar.
") Response.Write("Se não está registado, clique AQUI para se registar.
") Response.Write("Se já está registado, pode não ter permissão para colocar o leilão.
") Response.Write("
") End Sub Call DoPageFooter Call CloseDBConn %>