---
title: "Ytterligare ett felmeddlande"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/57497-ytterligare-ett-felmeddlande"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Alkvettern"
published: "2002-10-30T14:14:27.000Z"
updated: "2002-10-30T20:25:51.000Z"
replies: 5
views: 221
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/57497-ytterligare-ett-felmeddlande"
---

# Ytterligare ett felmeddlande

## #1 — Alkvettern, 2002-10-30T14:14Z

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?

Permalänk: https://www.webforum.nu/p/57497

## #2 — crisse6, 2002-10-30T14:17Z

nagot som ar fel pa din server....

Permalänk: https://www.webforum.nu/p/838016

## #3 — Ekström, 2002-10-30T14:27Z

```
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)
```

Permalänk: https://www.webforum.nu/p/838023

## #4 — icaaq, 2002-10-30T14:51Z

```
[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 ;)

Permalänk: https://www.webforum.nu/p/838034

## #5 — Ekström, 2002-10-30T15:00Z

```
<% 
[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. ;)

Permalänk: https://www.webforum.nu/p/838041

## #6 — Alkvettern, 2002-10-30T20:25Z

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

Permalänk: https://www.webforum.nu/p/838260

---

Tråden på webben: https://www.webforum.nu/amne/asp/57497-ytterligare-ett-felmeddlande