Ytterligare ett felmeddlande

ASP

5 svar · 212 visningar · startad av Alkvettern 30 okt. 2002

AlkvetternMedlem sedan okt. 2002108 inlägg

Frågan30 okt. 2002 14:14#1

Hej!

Har gått igenom allt och har säkert missat någon

Får "Server Application Error" med följande kod

[
<%

Response.Expires=-1

Dim oConn
Dim Query
Dim oRs

Response.write("<font size=2 face=arial>")
Response.write("Ett exempel på databaskoppling<br>")

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\tarzanslianer\db\spelare.mdb"))

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

Query="SELECT ename FROM tbl_SPELARE WHERE fname = 'Mathias'"

oConn.Execute(Query)

</head>
<body bgcolor="blue">
<%
SQLsats = "Select * From tbl_SPELARE"
Set oRS = oConn.Execute("Query")

Do Until RS.EOF
Response.Write RS("Fname") & " - " & RS("Ename") & " - " & RS("born") & "<br>"
%>
<%
RS.MoveNext
Loop
%>
<%
oConn.close
%>
</body>
]

Var ligger felet?

crisse6Medlem sedan dec. 20002 526 inlägg

30 okt. 2002 14:17#2

nagot som ar fel pa din server....

EkströmMedlem sedan feb. 20022 594 inlägg

30 okt. 2002 14:27#3

Query="SELECT ename FROM tbl_SPELARE WHERE fname = 'Mathias'" 

oConn.Execute(Query)

ska bort...

Och...

SQLsats = "Select * From tbl_SPELARE" 
Set oRS = oConn.Execute("Query")

borde nog vara

SQLsats = "Select * From tbl_SPELARE" 
Set oRS = oConn.Execute(SQLsats)

icaaqMedlem sedan okt. 20005 273 inlägg

30 okt. 2002 14:51#4

[red]<% 

Response.Expires=-1 

Dim oConn 
Dim Query 
Dim oRs 

Response.write("<font size=2 face=arial>") 
Response.write("Ett exempel på databaskoppling<br>") 

Set oConn = Server.CreateObject("ADODB.Connection") 
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\tarzanslianer\db\spelare.mdb")) 
%> 

</head> 
<body bgcolor="blue"> 
<% 
SQLsats = "Select * From tbl_SPELARE WHERE fname = 'Mathias'"
Set oConn = Server.CreateObject("ADODB.Connection") 
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\tarzanslianer\db\spelare.mdb")) 
Set oRS = oConn.Execute(SQLsats) 

Do Until oRS.EOF 
Response.Write oRS("Fname") & " - " & oRS("Ename") & " - " & oRS("born") & "<br>" 
%> 
<% 
oRS.MoveNext 
Loop 
%> 
<%
oRS.Close
Set oRS = Nothing
oConn.close 
Set oConn = Nothing[/red]

Och sedan alkvettern så kan du kolla in wF´s kod taggar ;)

EkströmMedlem sedan feb. 20022 594 inlägg

30 okt. 2002 15:00#5

<% 
[blue]
Response.Expires=-1 

Dim oConn 
Dim Query 
Dim oRs 

Response.write("<font size=2 face=""arial"">" & _
"Ett exempel på databaskoppling<br>")

Set oConn = Server.CreateObject("ADODB.Connection") 
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\tarzanslianer\db\spelare.mdb")) 
strSQL = "SELECT * FROM tbl_SPELARE WHERE fname = 'Mathias'"
Set oRS = oConn.Execute(strSQL) 
%>

</head> 
<body bgcolor="blue"> 

<% 
Do Until oRS.EOF 

Response.Write(oRS("Fname") & " - " & oRS("Ename") & " - " & oRS("born") & "<br>")

oRS.MoveNext
Loop 

oRS.Close
Set oRS = Nothing
oConn.close 
Set oConn = Nothing
%>[/blue]

Kände mig tvungen att ändra lite på icaaqs kod :)

... och eftersom jag är mycket häftigare än honom kör jag med blå kod. ;)

AlkvetternMedlem sedan okt. 2002108 inlägg

30 okt. 2002 20:25#6

TACK SÅ MYCKET , Det hjälpte.
Var ganska länge sen som jag sysslade med db kopplingar