---
title: "Option Explicit"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/109134-option-explicit"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ade"
published: "2004-08-13T14:57:48.000Z"
updated: "2004-08-13T21:55:52.000Z"
replies: 52
views: 1739
page: 1
pages: 3
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/109134-option-explicit"
---

# Option Explicit

_Sida 1 av 3._

## #1 — ade, 2004-08-13T14:57Z

Jag får detta felmedelande på mitt nya forumprojet :)

```

Microsoft VBScript compilation error '800a0400' 

Expected statement 

/forum1.0/Default.asp, line 10

Option Explicit
^

rad 10: Option Explicit
```

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

## #2 — magnusfernstrom, 2004-08-13T14:59Z

Har du "dimmat" alla dina variabler?

Mer kod tack.

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

## #3 — ade, 2004-08-13T15:02Z

```
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Option Explicit
Dim objConn 'as object
Dim strConn 'as string
Dim strSQL 'as string
Dim rstForum 'as recordset

'Skapa databas-anslutningen
Set objConn = Server.CreateObject("ADODB.Connection")
'forum.mdb skall bytas ut mot vad din databas-fil heter.
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("forum.mdb")
objConn.Open strConn

'Skapa SQL-strängen för att hämta alla som är huvud-inlägg (threadParent=0).
strSQL = "SELECT threadID, threadDateTime, threadHeadline, threadPoster FROM tblForum WHERE threadParent=0 ORDER BY threadDateTime DESC"

'Skapa och öppna ett recordset
Set rstForum = objConn.Execute(strSQL)
%>
<html>
 <body>
  <table border="0">
   <tr>
    <td colspan="3">
     <a href="form.asp">Skriv ett nytt inlägg</a>
    </td>
   </tr>    <tr>
    <td>
     <b>Rubrik</b>
    </td>
    <td>
     <b>Datum</b>
    </td>
    <td>
     <b>Vem?</b>
    </td>
   </tr>
   <%
'Kontrollera om det finns några inlägg
if (rstForum.EOF or rstForum.BOF) then
   %>
   <tr>
    <td colspan="3">
     <b>Det finns inga inlägg i forumet</b>
    </td>
   </tr>
   <%
else
  do while not rstForum.EOF
   %>
   <tr>
    <td>
     <b><a href="readThread.asp?threadID=<%=rstForum(0)%>"><%=rstForum(2)%></a></b>
    </td>
    <td>
     <b><%=rstForum(1)%></b>
    </td>
    <td>
     <b><%=rstForum(3)%></b>
    </td>
   </tr>
   <%
   rstForum.MoveNext
  loop
end if
  %>
  </table>
 </body>
</html>
<%
'Stäng databasen
objConn.Close
Set objConn = nothing
%> 
</body>
</html>
```

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

## #4 — magnusfernstrom, 2004-08-13T15:08Z

Annars kan du ju pröva med att ta bort den här delen av koden:

```
Option Explicit
Dim objConn 'as object
Dim strConn 'as string
Dim strSQL 'as string
Dim rstForum 'as recordset
```

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

## #5 — ade, 2004-08-13T15:13Z

Då fick jag detta felmedelande 

Microsoft JET Database Engine error '80040e10' 

No value given for one or more required parameters. 

/forum1.0/Default.asp, line 20 

rad 20: 

```
Set rstForum = objConn.Execute(strSQL)
```

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

## #6 — icaaq, 2004-08-13T15:15Z

Då har du skrivit fel i din SQL-sats.

Stämmer alla fältnamn överens med namnen i databasen?

mv icaaq

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

## #7 — icaaq, 2004-08-13T15:17Z

Och jag tycker att du ska använda dig av Option Explicit. Men det hjälper om du skriver det överst i ditt asp-dokument.

mv icaaq

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

## #8 — magnusfernstrom, 2004-08-13T15:18Z

```
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("forum.mdb")
SQL = "SELECT threadID, threadDateTime, threadHeadline, threadPoster FROM tblForum WHERE threadParent=0 ORDER BY threadDateTime DESC"

Set rs = Conn.Execute(SQL)
%>
<html>
 <body>
  <table border="0">
   <tr>
    <td colspan="3">
     <a href="form.asp">Skriv ett nytt inlägg</a>
    </td>
   </tr>    <tr>
    <td>
     <b>Rubrik</b>
    </td>
    <td>
     <b>Datum</b>
    </td>
    <td>
     <b>Vem?</b>
    </td>
   </tr>
   <%
if (rs.EOF or rs.BOF) then
   %>
   <tr>
    <td colspan="3">
     <b>Det finns inga inlägg i forumet</b>
    </td>
   </tr>
   <%
else
  do while not rs.EOF
   %>
   <tr>
    <td>
     <b><a href="readThread.asp?threadID=[b]Recordset[/b]">[b]Recordset[/b]</a></b>
    </td>
    <td>
     <b>Skriv ut recordset</b>
    </td>
    <td>
     <b>Skriv ut recordset</b>
    </td>
   </tr>
   <%
   rs.MoveNext
  loop
end if
  %>
  </table>
 </body>
</html>
<%
Conn.Close
Set Conn = nothing
%> 
</body>
</html>
```

Jag skippade "dimningen" och döpte om lite i scriptet. Där det står "Skriv ut recordset" skall du skriva ut det du vill ha. Efter querystringen ID skall t.ex. ID-recordsetet skrivas ut.

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

## #9 — magnusfernstrom, 2004-08-13T15:19Z

icaaq: Vad skall det vara bra för egentligen? Att dimma alltså. Har gjort alla möjliga script och aldrig använt mig av det.

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

## #10 — ade, 2004-08-13T15:19Z

hehe.. jag e kass på asp.. kan inte du göra det :( de ska va id vet jag iaf..

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

## #11 — ade, 2004-08-13T15:20Z

jag testar nu.. sj iaf

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

## #12 — magnusfernstrom, 2004-08-13T15:21Z

Kan du skriva ut alla kolumnnamn databasen (vad dom heter alltså) här på wF. Sedan får du gärna säga VAD som skall finnas (ett namn av avsändaren, en hemsideadress) där det står "Skriv ut recordset".

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

## #13 — ade, 2004-08-13T15:21Z

sk ajag skriva ID-recordset överallt där du skrivit skriv recordset?

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

## #14 — ade, 2004-08-13T15:22Z

<http://www.bloody-mary.dk/forum1/forum.mdb>

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

## #15 — ade, 2004-08-13T15:22Z

den är inte skrivskyddad

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

## #16 — icaaq, 2004-08-13T15:23Z

<http://www.webforum.nu/showthread.php?s=&postid=76616#post76616>

Ignorera mitt inlägg senare i den tråden då det är helt fel.

mv icaaq

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

## #17 — magnusfernstrom, 2004-08-13T15:23Z

Nej. Om du t.ex. har en kolumn där ett ID-nummer finns skall detta skrivas ut i länken. Om man sedan kanske kan skriva in sin hemsideadress skall ju detta också loopas ut.

Säg att du har döpt dina fält till forumID samt forumURL.

I loopen skriver du då

```
ID för inlägg: <%=rs("forumID")%>
Avsändarens adress: <%=rs("forumURL")%>
```

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

## #18 — ade, 2004-08-13T15:25Z

jag förstår..

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

## #19 — ade, 2004-08-13T15:25Z

jag testar nu

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

## #20 — ade, 2004-08-13T15:27Z

saknar efarnhet för sånt här märker jag :) skulle du kunna skriva ut recordsetten?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/109134-option-explicit  
Nästa sida: https://www.webforum.nu/amne/asp/109134-option-explicit/page2.md