Just nu i M3-nätverket
Gå till innehåll
Eforum är stängt för nya inlägg och svar sedan 20 juni 2022. Klicka för att läsa vad som hände och om alternativ.

"Operationen måste använda en fråga som kan uppdat

Siluett

Startad av Siluett,
i Webbutveckling

Rekommendera Poster

Siluett

Siluett

Postad
Postad

Sitter här o stirrar mig blind, kan inte hitta vad som är fel. Jag får felmeddelande att Operationen måste använda en fråga som kan uppdateras.

/forummitt/register.asp, line 55 och line 55 är objConnect.Execute(strSQL)

Min kod ser ut såhär:

 

<%

if Request.QueryString("action") = "register" then

 

Dim Conn 'as object

Dim strConn 'as string

Dim strSQL 'as string

Dim strLoginName 'as sstring

Dim strPassword 'as string

Dim strEmail 'as string

Dim strFullName 'as string

 

'Kontrollera om någon sträng är tom

if strLoginName = "" then strLoginName = " "

if strPassword = "" then strPassword = " "

if strEmail = "" then strEmail = " "

if strFullName = "" then strFullName = " "

 

'Ta bort ogiltiga tecken från alla strängar (' och %)

strLoginName = Replace(Request.Form("userLoginName"), "'", "''")

strPassword = Replace(Request.Form("userPassword"), "'", "''")

strEmail = Replace(Request.Form("userEmail"), "'", "''")

strFullName = Replace(Request.Form("userFullName"), "'", "''")

strLoginName = Replace(strLoginName, "%", "")

strPassword = Replace(strPassword, "%", "")

strEmail = Replace(Request.Form("userEmail"), "%", "")

strFullName = Replace(Request.Form("userFullName"), "%", "")

 

'Skapa databaskopplingen

Set objConnect = server.CreateObject("ADODB.Connection")

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/databas.mdb")

objConnect.Open strConnect

 

'Skapa sql-sträng för att kontrollera om användaren finns

strSQL = "SELECT userLoginName FROM tblUsers WHERE userLoginName = '" & strLoginName & "'"

 

'Skapa och öppna recordset

SQLsats = "Select * From tblUsers"

Set rstUser = objConnect.Execute(strSQL)

 

if (rstUser.EOF or rstUser.BOF) then 'Namnet var ledigt.

 

'Skapa sql-sträng för att lägga in en ny användare

strSQL = ""

strSQL = strSQL & "INSERT INTO tblUsers (userLoginName, userPassword, userEmail, userFullname,"

strSQL = strSQL & "userLoginStatus, userRegistred, userLoginLatest) VALUES ('"

strSQL = strSQL & strLoginName & "', '" 'Användarnamn

strSQL = strSQL & strPassword & "', '" 'Lösenord

strSQL = strSQL & strEmail & "', '" 'E-post

strSQL = strSQL & strFullName & "', " 'Fullständigt namn

strSQL = strSQL & "0, #" 'Inte inloggad

strSQL = strSQL & Now() & "#, #" 'Registrerad dagens datum och tid

strSQL = strSQL & Now() & "#)" 'Senast inloggad

 

'Kör sql-strängen mot databasen

objConnect.Execute(strSQL)

 

'Skicka tillbaka användaren till inloggnings-sidan med ett meddelande att han/hon är registrerad

Session("message") = "Du är registrerad. Du kan nu logga in."

Response.Redirect("login.asp")

 

else 'Namnet var upptaget

 

'Skapa ett meddelande till användaren

Session("regmess") = "<font color=""red""><b>Användarnamnet finns redan, försök med någonting annat.</b></font>"

 

end if

 

end if

%>

<html>

<head>

<title>Registrera användare</title>

</head>

<body>

<%

Response.Write(Session("regmess"))

Session("regmess") = ""

%>

<form name="frmRegister" method="post" action="register.asp?action=register">

<input type="text" name="userLoginName" value="<%=Request.Form("userLoginName")%>">Användarnamn<br>

<input type="password" name="userPassword" value="<%=Request.Form("userPassword")%>">Lösenord<br>

<input type="text" name="userEmail" value="<%=Request.Form("userEmail")%>">E-post<br>

<input type="text" name="userFullName" value="<%=Request.Form("userFullName")%>">Fullständigt namn<br>

<input type="submit" value="Registrera">

<input type="reset" value="Rensa fält">

</form>

 

 

 

Någon som kan hjälpa mig?

 

/Pernilla

 

Länk till kommentar
Dela på andra webbplatser
Siluett

Siluett

Postad
  • Trådskapare
Postad

Tack!

 

Men jag är nog lite tråg för jag fattar inte var jag ska hitta... enligt vad jag förstår av texten så sk jag ändra i verktyg - internetalternativ - säkerhet. men var sen?

 

 

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

Gå till ämneslista


×
×
  • Skapa nytt...