Problem med hemsida

5 svar · 247 visningar · startad av sudden 10 dec. 2002

suddenMedlem sedan okt. 2002341 inlägg

Frågan10 dec. 2002 10:44#1

Hej!
Jag har lite problem med min kod!
När jag försöker köra min sida så får jag det här meddelandet:

Feltyp:
ADODB.Recordset (0x800A0BB9)
Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.
/laktos/default.asp, line 718

Här är koden:

If Request.QueryString("category") = "ADDUSER" Then

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:/inetpub/wwwroot/laktos/databas.mdb"

Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM users"
[B]RS.Open SQL, Connect, adLockOptimistic, adCmdTable[/B]
 RS.AddNew
 RS("NAMN") = Request.Form("namn")
 RS("NICK") = Request.Form("nick")
 RS("EPOST") = Request.Form("epost")  
 RS("CITY") = Request.Form("city")
 RS("YEAR") = Request.Form("year")
 RS("MONTH") = Request.Form("month")
 RS("DAY") = Request.Form("day")
 RS("KON") = Request.Form("kon")
 RS("INFO") = Request.Form("info")
RS.Update
RS.MoveFirst

 RS.Close
 Set RS = Nothing
 Connect.Close
 Set Connect = Nothing

Else

Response.Redirect("default.asp")
End If

Är det någon som kan? snälla!!

EitrazMedlem sedan sep. 2002366 inlägg

10 dec. 2002 10:48#2

Ska inte vara några "" runt SQL i RS.Open satsen va?

-Eitraz

suddenMedlem sedan okt. 2002341 inlägg

10 dec. 2002 10:50#3

Det har du nog rätt i.
Men borde inte webbläsaren generera ett felmeddelande istället för att tänka en hel evighet?
Verkar wierd!

suddenMedlem sedan okt. 2002341 inlägg

10 dec. 2002 11:37#4

Är det någon som kan hjälpa ? :(
Behöver få det här fixat!

VideMedlem sedan dec. 19998 577 inlägg

10 dec. 2002 12:31#5

Har du inkluderat deklarerat som du använder någonstans? Kanske inkluderat dom i adovbs.inc?

Mvh, Vide

icaaqMedlem sedan okt. 20005 273 inlägg

10 dec. 2002 12:51#6

Jag skulle gjort så här

[red]
If Request.QueryString("category") = "ADDUSER" Then

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:/inetpub/wwwroot/laktos/databas.mdb"

strSql = "INSERT INTO users(NAMN, NICK, EPOST, CITY, YEAR, MONTH, DAY, KON, INFO)"&_
"VALUES('"&Trim(Request.Form("namn"))&"', "&_
"'"&Trim(Request.Form("nick"))&"', "&_
"'"&Trim(Request.Form("epost"))&"', "&_
"'"&Trim(Request.Form("city"))&"', "&_
"'"&Trim(Request.Form("year"))&"', "&_
"'"&Trim(Request.Form("month"))&"', "&_
"'"&Trim(Request.Form("day"))&"', "&_
"'"&Trim(Request.Form("kon"))&"', "&_
"'"&Trim(Request.Form("info"))&"')"
Connect.Execute(strSql),,128
Set Connect = Nothing

Else

Response.Redirect("default.asp")
End If
[/red]

Med reservation att du kanske har en äldre variant av access och att du har fälten year, month och day i datum/tid format, då ska du byta ut enkelfnuttarna(') mot brädgårdar(#)
mvh icaaq