---
title: "Sökvägsfel.."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/73188-sökvägsfel/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "[AMD]Zmaster"
published: "2003-04-04T21:20:20.000Z"
updated: "2003-04-05T20:10:14.000Z"
replies: 47
views: 554
page: 2
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/73188-sökvägsfel"
---

# Sökvägsfel..

_Sida 2 av 3._

## #21 — Sebbe, 2003-04-05T11:31Z

Jo, jag tog bort ett ( :)

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

## #22 — [AMD]Zmaster, 2003-04-05T11:32Z

Blir fortfarande

> Microsoft VBScript compilation error '800a0409' 
> 
> Unterminated string constant 
> 
> /tshirt/RegistreraIntresse.asp, line 18 
> 
> OR (Request.Form("telefon") = "") OR (Request.Form("email) = "") Then
> \---------------------------------------------------------------------^

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

## #23 — Sebbe, 2003-04-05T11:34Z

**/red** Nej men fy! Nu såg jag felet. :p

```
If (Request.Form("namn") = "") OR (Request.Form("gatuadress") = "") _
OR (request.Form("postnummer") = "") OR (Request.Form("ort") = "") _
OR (Request.Form("telefon") = "") OR (Request.Form("email") = "") Then
Response.Write "<a href='registrera.html'>"
Response.Write "Alla uppgifter måste fyllas i"
Response.Write "</a>"
```

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

## #24 — [AMD]Zmaster, 2003-04-05T11:35Z

nää :(

> Microsoft VBScript compilation error '800a0409' 
> 
> Unterminated string constant 
> 
> /tshirt/RegistreraIntresse.asp, line 16 
> 
> If (Request.Form("namn") = "") OR (Request.Form("gatuadress") = "") OR (request.Form("postnummer") = "") OR (Request.Form("ort") = "") OR (Request.Form("telefon") = "") OR (Request.Form("email) = "") Then
> \------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^

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

## #25 — Sebbe, 2003-04-05T11:38Z

Tryck mer på F5! ;) (Hade redigerat mitt inlägg.)

```
If (Request.Form("namn") = "") OR (Request.Form("gatuadress") = "") _
OR (request.Form("postnummer") = "") OR (Request.Form("ort") = "") _
OR (Request.Form("telefon") = "") OR (Request.Form("email") = "") Then
Response.Write "<a href='registrera.html'>"
Response.Write "Alla uppgifter måste fyllas i"
Response.Write "</a>"
```

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

## #26 — [AMD]Zmaster, 2003-04-05T11:39Z

Yeeeeeeeeeeeeeess!!!!!!! TAAAAAAAAAACK!

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

## #27 — [AMD]Zmaster, 2003-04-05T11:49Z

Förresten, om jag nu vill att när man registrerat sig så ska det skickas ett email till den registrerades emailadress som man får skriva in vid registrering, är det jobbigt samt hur går jag till väga?

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

## #28 — Sebbe, 2003-04-05T11:52Z

Om du har tillgång till CDONTS på servern:

```
Set objMail = Server.CreateObject("CDONTS.NewMail")
  objMail.From = "din mailadress"
  objMail.To = RS("email")
  objMail.Subject = "Registreringsbevis"
  objMail.Body = "Här lägger du meddelandet!"
  objMail.Send
Set objMail = Nothing
```

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

## #29 — [AMD]Zmaster, 2003-04-05T12:45Z

Okej, kan jag göra såhär?;

```
...
If not bolFinnsRedan Then
objRs.AddNew
objRS("Namn") = Request.Form("namn")
objRS("Gatuadress") = Request.Form("gatuadress")
objRS("Postnummer") = Request.Form("postnummer")
objRS("Ort") = Request.Form("ort")
objRS("Telefon") = Request.Form("telefon")
objRS("Epost") = Request.Form("email")
objRS.Update
Response.Write "Tack för visat intresse!."
Set objMail = Server.CreateObject("CDONTS.NewMail")
  objMail.From = "webmaster@hockeynytt.org"
  objMail.To = ("email")
  objMail.Subject = "Registreringsbevis"
  objMail.Body = "Här lägger du meddelandet!"
  objMail.Send
Set objMail = Nothing
End If
objRS.Close
Set objRS = Nothing
End If
objConn.Close
Set objConn = Nothing
...
```

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

## #30 — Sebbe, 2003-04-05T13:08Z

Jag skulle råda dig till att göra såhär:

```
  If NOT bolFinnsRedan Then
    strNamn = Trim(Request.Form("namn"))
    strGata = Trim(Request.Form("gatuadress"))
    intPost = Trim(Request.Form("postnummer"))
    strOrt = Trim(Request.Form("ort"))
    strTel = Trim(Request.Form("telefon"))
    strEmail = Trim(Request.Form("email"))

    strSQL = "INSERT INTO [i]tabellen[/i] (Namn, Gatuadress, Postnummer, Ort, Tetefon, Epost) VALUES ('" & strNamn & "', '" & strGata & "', " & intPost & ", '" & strOrt & "', '" & strTel & "', '" & strEmail & "')"
    objRS.Open strSQL, objCon

    Response.Write("Tack för visat intresse!.")

    Set objMail = Server.CreateObject("CDONTS.NewMail")
    objMail.From = "webmaster@hockeynytt.org"
    objMail.To = strEmail
    objMail.Subject = "Registreringsbevis"
    objMail.Body = "Här lägger du meddelandet!"
    objMail.Send
    Set objMail = Nothing
  End If
  objRS.Close
  Set objRS = Nothing
End If
objConn.Close
Set objConn = Nothing
```

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

## #31 — [AMD]Zmaster, 2003-04-05T13:37Z

Det ger följande felmeddelande:

> Microsoft VBScript runtime error '800a01f4' 
> 
> Variable is undefined: 'strNamn' 
> 
> /tshirt/RegistreraIntresse.asp, line 46

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

## #32 — Sebbe, 2003-04-05T13:46Z

Aha, du använder Option Explicit!

```
  If NOT bolFinnsRedan Then
    Dim strNamn, strGata, intPost, strOrt, strTel, strEmail

    strNamn = Trim(Request.Form("namn"))
    strGata = Trim(Request.Form("gatuadress"))
    intPost = Trim(Request.Form("postnummer"))
    strOrt = Trim(Request.Form("ort"))
    strTel = Trim(Request.Form("telefon"))
    strEmail = Trim(Request.Form("email"))

    strSQL = "INSERT INTO tabellen (Namn, Gatuadress, Postnummer, Ort, Tetefon, Epost) VALUES ('" & strNamn & "', '" & strGata & "', " & intPost & ", '" & strOrt & "', '" & strTel & "', '" & strEmail & "')"
    objRS.Open strSQL, objCon

    Response.Write("Tack för visat intresse!.")

    Set objMail = Server.CreateObject("CDONTS.NewMail")
    objMail.From = "webmaster@hockeynytt.org"
    objMail.To = strEmail
    objMail.Subject = "Registreringsbevis"
    objMail.Body = "Här lägger du meddelandet!"
    objMail.Send
    Set objMail = Nothing
  End If
  objRS.Close
  Set objRS = Nothing
End If
objConn.Close
Set objConn = Nothing
```

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

## #33 — [AMD]Zmaster, 2003-04-05T17:07Z

Då kom nästa fel...måste lägga in ett jättestort tack för att du tar dig tid och hjälper mig, hoppas du kan fortsätta tills det löser sig ;) :) .

> Microsoft VBScript runtime error '800a01f4' 
> 
> Variable is undefined: 'strSQL' 
> 
> /tshirt/RegistreraIntresse.asp, line 55

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

## #34 — Sebbe, 2003-04-05T17:16Z

För att det ska gå snabbare kan jag ju säga att varje gång du får det felmeddelandet är det bara att skriva Dim det-som-står. Nu:

```
  If NOT bolFinnsRedan Then
    Dim strNamn, strGata, intPost, strOrt, strTel, strEmail, strSQL

    strNamn = Trim(Request.Form("namn"))
    strGata = Trim(Request.Form("gatuadress"))
    intPost = Trim(Request.Form("postnummer"))
    strOrt = Trim(Request.Form("ort"))
    strTel = Trim(Request.Form("telefon"))
    strEmail = Trim(Request.Form("email"))

    strSQL = "INSERT INTO tabellen (Namn, Gatuadress, Postnummer, Ort, Tetefon, Epost) VALUES ('" & strNamn & "', '" & strGata & "', " & intPost & ", '" & strOrt & "', '" & strTel & "', '" & strEmail & "')"
    objRS.Open strSQL, objCon

    Response.Write("Tack för visat intresse!.")

    Set objMail = Server.CreateObject("CDONTS.NewMail")
    objMail.From = "webmaster@hockeynytt.org"
    objMail.To = strEmail
    objMail.Subject = "Registreringsbevis"
    objMail.Body = "Här lägger du meddelandet!"
    objMail.Send
    Set objMail = Nothing
  End If
  objRS.Close
  Set objRS = Nothing
End If
objConn.Close
Set objConn = Nothing
```

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

## #35 — [AMD]Zmaster, 2003-04-05T17:18Z

Antar att det ska vara objConn istället för objCon som du skrev under strSQLblablabla...
Isåfall kommer detta fel:

> ADODB.Recordset error '800a0e79' 
> 
> Operation is not allowed when the object is open. 
> 
> /tshirt/RegistreraIntresse.asp, line 56

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

## #36 — Sebbe, 2003-04-05T17:21Z

```
  If NOT bolFinnsRedan Then
    Dim strNamn, strGata, intPost, strOrt, strTel, strEmail, strSQL

    strNamn = Trim(Request.Form("namn"))
    strGata = Trim(Request.Form("gatuadress"))
    intPost = Trim(Request.Form("postnummer"))
    strOrt = Trim(Request.Form("ort"))
    strTel = Trim(Request.Form("telefon"))
    strEmail = Trim(Request.Form("email"))

    strSQL = "INSERT INTO tabellen (Namn, Gatuadress, Postnummer, Ort, Tetefon, Epost) VALUES ('" & strNamn & "', '" & strGata & "', " & intPost & ", '" & strOrt & "', '" & strTel & "', '" & strEmail & "')"
    objRS.Close
    objRS.Open strSQL, objConn

    Response.Write("Tack för visat intresse!.")

    Set objMail = Server.CreateObject("CDONTS.NewMail")
    objMail.From = "webmaster@hockeynytt.org"
    objMail.To = strEmail
    objMail.Subject = "Registreringsbevis"
    objMail.Body = "Här lägger du meddelandet!"
    objMail.Send
    Set objMail = Nothing
  End If
  objRS.Close
  Set objRS = Nothing
End If
objConn.Close
Set objConn = Nothing
```

Kanske funkar? Svårt när man inte kan testa, men det är bara att sega sig fram! ;)

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

## #37 — [AMD]Zmaster, 2003-04-05T17:28Z

Mmm det löste DET problemet iaf, nu kom nästa, som jag hoppas är det sista också :)

> Microsoft OLE DB Provider for ODBC Drivers error '80040e10' 
> 
> \[Microsoft\]\[ODBC Microsoft Access Driver\] The Microsoft Jet database engine could not find the object 'tabellen'. Make sure the object exists and that you spell its name and the path name correctly. 
> 
> /tshirt/RegistreraIntresse.asp, line 57

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

## #38 — Sebbe, 2003-04-05T17:30Z

Byt ut "tabellen" i SQL-frågan mot namnet för tabellen i din databas! :)

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

## #39 — [AMD]Zmaster, 2003-04-05T17:35Z

\*ändrat\*
Fasen nu kom nästa fel... :OO

> Microsoft OLE DB Provider for ODBC Drivers error '80040e10' 
> 
> \[Microsoft\]\[ODBC Microsoft Access Driver\] Too few parameters. Expected 1. 
> 
> /tshirt/RegistreraIntresse.asp, line 57

Rad 57: 

```
    objRS.Open strSQL, objConn
```

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

## #40 — Sebbe, 2003-04-05T17:37Z

Om nu kolumnen Postnummer inte är av typen tal, utan av typen Text eller PM, byt ut strSQL mot det här:

```
strSQL = "INSERT INTO tabellen (Namn, Gatuadress, Postnummer, Ort, Tetefon, Epost) VALUES ('" & strNamn & "', '" & strGata & "', '" & intPost & "', '" & strOrt & "', '" & strTel & "', '" & strEmail & "')"
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/73188-sökvägsfel/page2  
Föregående sida: https://www.webforum.nu/amne/asp/73188-sökvägsfel.md  
Nästa sida: https://www.webforum.nu/amne/asp/73188-sökvägsfel/page3.md