webForumDet fria alternativet

Webhotell!

5 svar · 210 visningar · startad av sudden

suddenMedlem sedan okt. 2002341 inlägg
#1

Hej!
Jag har gjort en väldigt enkel gästbok och har lagt upp den på et webhotell!
Men...scriptet tycks bara funka på min egen server!!

Här är koden:

<%
strNamn = trim(Request.Form("fornamn"))
strInlagg = trim(Request.Form("inlagg"))

Set Connect = Server.CreateObject("ADODB.Connection")

Connect.Open "driver={Microsoft Access Driver (\*.mdb)}; dbq=" & Server.MapPath("\\script1987\\db\\databas.mdb")

Connect.Execute("INSERT INTO tabell (ForNamn, Inlagg) VALUES('"& strNamn &"', '"& strInlagg &"')"),,128

Connect.Close
Set Connect = Nothing

Set RS = Server.CreateObject("ADODB.Recordset")

Do While Not RS.EOF
%>
<center>
<table width=550 height=50 border=0 cellpadding=0 cellspacing=0 bgcolor=#000000>
<td>
<table width=550 height=50 border=0 cellpadding=0 cellspacing=0 bgcolor=#3399CG>

<!------------------------------------------------>
<td>
<%
Response.Write"<b>Av:</b>" & RS("fornamn") & "<br>"
Response.Write"<b>Inlägg:</b>" & RS("inlagg")
Response.Write"<br>"
Response.Write"<hr>"
%>
</td>
</table>
</table>
</center>
<%
RS.MoveNext
Loop

Rs.Close
set RS = Nothing

Connect.Close
Set Connect = Nothing
%>

<html>
<body>

 Skriv ett \<a href="skicka.asp" target="\_top"\>nytt\</a\>.

</body>
</html>

Och när jag ska testa gästboken får jag det här meddelandet:

ADODB.Recordset error '800a0e78'

Operation is not allowed when the object is closed.

/script1987/inlagg.asp, line 19

Snälla hjälp!!

suddenMedlem sedan okt. 2002341 inlägg
#2

Bort med det där str där uppe förresten =)

@ndersMedlem sedan juni 200032 969 inlägg
#3

Jag kan inte förstå hur det där ska fungera på någon server, du exekverar ju aldrig någon select-fråga.

Mvh,

suddenMedlem sedan okt. 2002341 inlägg
#4

Okej!
Skulle du kunna göra om koden lite grann =)
Så att den blir rätt?

PeeerMedlem sedan mars 20025 907 inlägg
#5

du stänger ju databaskopplingen där uppe innan du läst från databasen. Bort med dessa två rader (på det första stället de förekommer)

Connect.Close 
Set Connect = Nothing

Använd gärna kod-taggen och redigera funktionen nästa gång :)

suddenMedlem sedan okt. 2002341 inlägg
#6

Jag är en Newbie som du kanske redan förstått =)

126 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
123 ms — hämta tråd, inlägg och bilagor (db)