Varför funkar inte scriptet??

30 svar · 360 visningar · startad av Goosefish 19 juli 2001

GoosefishMedlem sedan juli 200143 inlägg

Trådstart19 juli 2001 19:08#1

Hej!
Det står att det är något fel på parametrarna och en massa annat!...rad 22 var de visst kolla koden:

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF">

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

If Request.Querystring("Ordning") = "Namn" Then

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

rec.Open Addera, Connect, adOpenStatic, adLockOptimistic

%>
<%=rec("Namn")%>
<%=rec("Efternamn")%>
<%=rec("ICQ")%>
<%=rec("Email")%>
<%=rec("Hemsida")%>
<%
rec.Close
Connect.Close
End If
%>
</body>
</html>

@ndersMedlem sedan juni 200032 967 inlägg

19 juli 2001 19:15#2

du har aldrig definierat Addera, som skall vara en sql-fråga.

Addera = "SELECT * FROM Tabellen WHERE bla='bla'"
rec.open ....

(varför kallar du den addera? det ser inte ut som om du lägger till någonting...)

GoosefishMedlem sedan juli 200143 inlägg

19 juli 2001 19:18#3

har provat det...men det gör ingen skillnad. Då man gjort det ser det ut så här

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\adressbok.mdb"

If Request.Querystring("Ordning") = "Namn" Then

Addera = "SELECT * FROM adresstabell "

End If

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

RecSet.Open Connect, Addera, adOpenStatic, adLockOptimistic
%>

<%=RecSet("Namn")%>
<%=RecSet("Efternamn")%>
<%=RecSet("ICQ")%>
<%=RecSet("Email")%>
<%=RecSet("Hemsida")%>

<%RecSet.Update
RecSet.Close
Connection.Close

icaaqMedlem sedan okt. 20005 273 inlägg

19 juli 2001 19:18#4

hmm jag gissar på (Idg)

icaaqMedlem sedan okt. 20005 273 inlägg

19 juli 2001 19:20#5

vad får du för exakt felmess....och vilken linje är det...du får gärna markera linjen

@ndersMedlem sedan juni 200032 967 inlägg

19 juli 2001 19:20#6

goosefish: uppfylls villkoret If Request.Querystring("Ordning") = "Namn" Then? prova att ta bort if-satsen runt definitionen av sql-frågan.

icaaq: svär inte!

GoosefishMedlem sedan juli 200143 inlägg

19 juli 2001 19:22#7

ADODB.Recordset fel '800a0bb9'

Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.

/visa.asp, rad 22

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\adressbok.mdb"

If Request.Querystring("Ordning") = "Namn" Then

Addera = "SELECT * FROM adresstabell "

End If

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

RecSet.Open Connect, Addera, adOpenStatic, adLockOptimistic <<---
%>

<%=RecSet("Namn")%>
<%=RecSet("Efternamn")%>
<%=RecSet("ICQ")%>
<%=RecSet("Email")%>
<%=RecSet("Hemsida")%>

<%RecSet.Update
RecSet.Close
Connection.Close

GoosefishMedlem sedan juli 200143 inlägg

19 juli 2001 19:24#8

tog bort if satsen men det är ändå samma felmeddelande

@ndersMedlem sedan juni 200032 967 inlägg

19 juli 2001 19:25#9

vad händer om du tar bort if-satsen runt 'addera = "select ...."'?
jag ser en liten konstig sak. du ska inte ha RecSet.update längst ner. det ska du bara ha när du gör förändringar i tabellen.

mvh,

GoosefishMedlem sedan juli 200143 inlägg

19 juli 2001 19:27#10

så här tog jag bort if satsen

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\adressbok.mdb"
ifsatsen borta
Addera = "SELECT * FROM adresstabell "

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

RecSet.Open Connect, Addera, adOpenStatic, adLockOptimistic
%>

<%=RecSet("Namn")%>
<%=RecSet("Efternamn")%>
<%=RecSet("ICQ")%>
<%=RecSet("Email")%>
<%=RecSet("Hemsida")%>

<%
RecSet.Close
Connection.Close%>

@ndersMedlem sedan juni 200032 967 inlägg

19 juli 2001 19:27#11

prova också att byta ut dessa två rader:

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

RecSet.Open Connect, Addera, adOpenStatic, adLockOptimistic

mot

set RecSet = Connect.Execute(Addera)

mvh,

GoosefishMedlem sedan juli 200143 inlägg

19 juli 2001 19:31#12

det problemet vart löst men då kom

Microsoft OLE DB Provider for ODBC Drivers fel '80040e37'

[Microsoft][Drivrutin för ODBC Microsoft Access] Microsoft Jet kan inte hitta tabellen eller frågan 'adresstabell'. Kontrollera att den existerar och att namnet är rätt stavat

/visa.asp, rad 14

upp

GoosefishMedlem sedan juli 200143 inlägg

19 juli 2001 19:33#13

jaha...nu fixa jag det problemet...men då kom förstås ett nytt

ADODB.Field fel '80020009'

Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.

@ndersMedlem sedan juni 200032 967 inlägg

19 juli 2001 19:34#14

då ser det ut som att tabellen är tom.

stämmer det?

GoosefishMedlem sedan juli 200143 inlägg

19 juli 2001 19:35#15

ja det är den nog...hehe...oj
men EOF BOF problemet då?

GoosefishMedlem sedan juli 200143 inlägg

19 juli 2001 19:38#16

nu står det att objekt krävs på näst sista raden?

@ndersMedlem sedan juni 200032 967 inlägg

19 juli 2001 19:40#17

så här:

[b]if not RecSet.eof then[/b]
Response.write RecSet("Namn")
Response.write RecSet("Efternamn")
Response.write RecSet("ICQ")
Response.write RecSet("Email")
Response.write RecSet("Hemsida")
[b]else[/b]
Response.write "den e tom ju!"
[b]end if[/b]

mvh,

@ndersMedlem sedan juni 200032 967 inlägg

19 juli 2001 19:41#18

nu står det att objekt krävs på näst sista raden?

du försöker där stänga ett objekt som du kallar för Connection, men det objektet som du tidigare skapat kallade du för Connect.

ändra alltså till Connect.close.

mvh,

GoosefishMedlem sedan juli 200143 inlägg

19 juli 2001 19:45#19

JAAAAAA!!!!!!!! Skriptet funkar!!

TACK!! TACK!

Äntligen funkar det!
tack återigen!

@ndersMedlem sedan juni 200032 967 inlägg

19 juli 2001 19:46#20

najs!

varsågod!