Jag blir tokig. Har skrivit en kod som lägger till nya användare så här:
sSQL = "SELECT * FROM Users where UserName = '"&UserName&"'"
set rs1 = oConn.Execute(sSQL)
if rs1.EOF = true then
sSQL="INSERT INTO Users VALUES('"&UserName&"','"&Password&"')"
set rs1 = oConn.Execute(sSQL)
Response.Write "The new user is successfully added. <b><a href='viewAdministration.asp'>Continue</a></b>"
Response.End
else
Response.Write "Can not add duplicate users. Please change the username. <b><a href='javascript:history.back()'>Back</a></b>"
Response.End
end if
Trots att användaren inte finns så får jag upp meddelandet "Can not add....osv, och det konstigaste av allt är att användaren läggs till ändå. Vad kan detta bero på?
sSQL = "SELECT * FROM Users where UserName = '"&UserName&"'"
set rs1 = oConn.Execute(sSQL)
If NOT rs1.EOF then
Response.Write "Can not add duplicate users. Please change the username. <b><a href='javascript:history.back()'>Back</a></b>"
Else
sSQL="INSERT INTO Users VALUES('"&UserName&"','"&Password&"')"
set rs1 = oConn.Execute(sSQL)
Response.Write "The new user is successfully added. <b><a href='viewAdministration.asp'>Continue</a></b>"
End If
Här är nästan hela sidan, det är bara lite oväsentlig html-gojs som jag inte skickar med.
Tackar för att ni vill hjälpa mej!
/Bettan
******************************************
Dim rs1, oConn, sSQL
dim UserName, Password
dim FullUserName
dim SecurityLevel
set rs1 = server.CreateObject ("adodb.recordset")
set oConn = Session("oConn")
if oConn.State <> 1 then
Response.Write "Error. Bad connection status."
Response.End
end if
'Kontrollera att alla variabler blir rätt
if Request.Form("txtUserName") <> "" then UserName = UCase(Request.Form("txtUserName"))
if Request.Form("txtPassword") <> "" then Password = UCase(Request.Form("txtPassword"))
if Request.Form("txtFullUserName") <> "" then FullUserName = UCase(Request.Form("txtFullUserName"))
if Request.Form("txtSecurityLevel") <> "" then SecurityLevel = ucase(Request.Form("txtSecurityLevel"))
sSQL = "SELECT * FROM Users where UserName = '"&UserName&"'"
set rs1 = oConn.Execute(sSQL)
If NOT rs1.EOF then
Response.Write "Can not add duplicate users. Please change the username. <b><a href='javascript:history.back()'>Back</a></b>"
Else
sSQL="INSERT INTO Users VALUES('"&UserName&"','"&Password&"','"&FullUserName&"','"&SecurityLevel&"')"
set rs1 = oConn.Execute(sSQL)
Response.Write "The new user is successfully added. <b><a href='viewAdministration.asp'>Continue</a></b>"
End If
Jo, jag är till 110% säker att jag stänger alla if-satser. Om jag skulle glömma borde jag väl få felmeddelande?
Jag har inte löst problemet men felet dyker inte upp om man ändrar i Internet Services Manager, väljer properties på den aktuella web siten, in på fliken Directory. Där ändrar man Application Protection från Low till Medium.
Är det någon som begriper mer än jag för jag fattar inte varför?? Varför, varför, varför???
Erkänner mej snart besegrad av asp och återgår till statiska html sidor. :r
Det kan ha med ditt problem att göra att du använder ett connectionobjekt som ligger i en session. Lagra aldrig, aldrig, aldrig connectionobjekt i sessions.
Jag vet att det är farligt farligt, men härligt, här.... ja. Jag var lat helt enkelt och siten har inte många användare, och därför blir det inte många sessioner.
Det är ju bara på denna sidan som problemet uppstår och bara ibland. Kan det verkligen vara sessionerna som spökar då?
Jag provar gärna alla förslag men eftersom det bara drabbat denna sida så känns det lite långsökt. Tack ändå.