")
Response.Write(" |
")
Response.Write("| ")
Response.Write("Alterar dados de " & rs.Fields("Name") & "")
Response.Write(" |
")
Response.Write(" |
")
If Len(Trim(sEmail)) = 0 Then
sString = sString & "Existe um erro no campo ""EMAIL"" .
"
End If
If Len(Trim(sAddress1)) = 0 Then
sString = sString & "Existe um erro no campo ""Morada 1"" .
"
End If
If Len(Trim(sCity)) = 0 Then
sString = sString & "Existe um erro no campo ""Cidade"" .
"
End If
If sState = "other" Then
sString = sString & "Existe um erro no campo ""Região"" .
"
End If
If Len(Trim(sZip)) = 0 Then
sString = sString & "Existe um erro no campo ""Código Postal"" .
"
End If
If sString <> "" Then
Response.Write("| " & sString & " ")
Response.Write("Use o botão RETROCEDER do seu browser para tentar de novo. |
")
Else
ChRegSQL = ""
ChRegSQL = ChRegSQL & " UPDATE Registration SET "
ChRegSQL = ChRegSQL & " Email = " & SQLStr(sEmail) & ", "
ChRegSQL = ChRegSQL & " Address1 = " & SQLStr(sAddress1) & ", "
ChRegSQL = ChRegSQL & " Address2 = " & SQLStr(sAddress2) & ", "
ChRegSQL = ChRegSQL & " City = " & SQLStr(sCity) & ", "
ChRegSQL = ChRegSQL & " State = " & SQLStr(sState) & ", "
ChRegSQL = ChRegSQL & " Zip = " & SQLStr(sZip) & " "
ChRegSQL = ChRegSQL & " WHERE UserName = " & SQLStr(sUserName) & " "
ChRegSQL = ChRegSQL & " AND Password = " & SQLStr(sPassWord) & " "
GobjConnect.Execute ChRegSQL
Response.Write("| ")
Response.Write("Os seus dados foram actualizados com sucesso. ")
Response.Write("Clique aqui paar voltar à homepage dos leilões. ")
Response.Write(" |
")
End If
Response.Write(" |
")
Response.Write("| ")
Call AuctionNavigation
Response.Write(" |
")
Response.Write(" |
")
Response.Write("
")
End If
DoPageFooter
CloseDBConn
%>