Hjälp mig!!!

3 svar · 167 visningar · startad av Erx 4 feb. 2002

ErxMedlem sedan dec. 200019 inlägg

Frågan4 feb. 2002 17:28#1

Hjälp!
Min kod ser ut så här:

<%response.buffer=true%>
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/users.mdb") &
Set RS = Server.CreateObject("ADODB.Recordset")
<html><head><title>Ekompis.tk's loginssystem v.1.0</title></head><body>
<%
Addera = "SELECT * FROM mails"
RS.Open Addera, Connect, adOpenStatic, adLockOptimistic
RS.AddNew
RS("Tittel") = Request.Form("Tittel")
RS("till") = Request.Form("till")
RS("från") = Request.Form("fran")
RS("Medelande") = Request.Form("mess")
RS("Läst") = "Nej"
RS.Update
RS.Close
Connect.Close
%></body></html>

Men jag får det här felmedelandet:
Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/users.mdb")"" Set RS = Server.CreateObject("ADODB.Recordset")
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/portalen2002/sendemejl.asp, line 9

------------------
EEEEEEEEE RRRRR X X
E R R X X
EEEEE R R X X
E R R X
EEEEEEEEE R R X X
R R X X
R RX X
R R
R R

jorgenMedlem sedan feb. 20012 412 inlägg

4 feb. 2002 17:45#2

hej, du behöber <% %> runt din connection-koppling.

mvh Jörgen :)

------------------
"När forumledarna är på gott humör går det också att få ett eller annat
vettigt ord ur dem." /Hypatia 2002

LarsGMedlem sedan dec. 200012 464 inlägg

4 feb. 2002 17:46#3

Du har en & för mycket på raden connect.open

<!-- #include file="adovbs.inc" -->
<%response.buffer=true
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/users.mdb") & ' <----- ta bort &
Set RS = Server.CreateObject("ADODB.Recordset")
%>
<html><head><title>Ekompis.tk's loginssystem v.1.0</title></head><body>
<%
Addera = "SELECT * FROM mails" 
RS.Open Addera, Connect, adOpenStatic, adLockOptimistic 
RS.AddNew
RS("Tittel") = Request.Form("Tittel")
RS("till") = Request.Form("till")
RS("från") = Request.Form("fran")
RS("Medelande") = Request.Form("mess")
RS("Läst") = "Nej"
RS.Update
RS.Close
Connect.Close
%></body></html>

och så saknas det <% %> på några ställen
------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 04 feb 2002]

ErxMedlem sedan dec. 200019 inlägg

4 feb. 2002 17:50#4

Ojsan!
Tack så mycket!

------------------
EEEEEEEEE RRRRR X X
E R R X X
EEEEE R R X X
E R R X
EEEEEEEEE R R X X
R R X X
R RX X
R R
R R