/red Redigerar bort den så att man slipper skämmas. :r
Frågan#1
Vet nån varför UserCity, som man skriver in efteråt inte kommer in på samma rad som på UserLoginName?
Behöver jag lägga till en WHERE sats i den andra SQL satsen med?
'******************** Skapa databaskopplingen
Set objConn = server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
objConn.Open strConn
'******************** Välj ut användaren som just regga sig
strSQL = ""
strSQL = strSQL & "SELECT UserLoginName FROM userinfo "
strSQL = strSQL & "WHERE UserLoginName = '" & Session("UserLoginName") & "'"
Set rstUser = Server.CreateObject("ADODB.Recordset")
rstUser.Open strSQL, objConn, 3, 3
if (rstUser.BOF or rstUser.EOF) then '************ Sökningen Misslyckades
response.write "oj, nu gick det snett"
else '********** Om sökningen lyckades
strSQL = ""
strSQL = strSQL & "INSERT INTO userinfo ("
strSQL = strSQL & "UserCity"
strSQL = strSQL & ")"
strSQL = strSQL & "VALUES ("
strSQL = strSQL & "'" & request.form("UserCity") & "'"
strSQL = strSQL & ")"
objConn.Execute(strSQL)