---
title: "Sökvägsfel.."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/73188-sökvägsfel/page3"
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: 3
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 3 av 3._

## #41 — [AMD]Zmaster, 2003-04-05T17:42Z

Nästa fel nu :P

> Tack för visat intresse!. 
> ADODB.Recordset error '800a0e78' 
> 
> Operation is not allowed when the object is closed. 
> 
> /tshirt/RegistreraIntresse.asp, line 69

Rad 69:

```
 objRS.Close
```

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

## #42 — Sebbe, 2003-04-05T17:44Z

Nu ska vi göra något dumt! :p

```
  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
  Set objRS = Nothing
End If
objConn.Close
Set objConn = Nothing
```

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

## #43 — [AMD]Zmaster, 2003-04-05T17:51Z

Nu funkar det..iaf att lägga till...sen om email skickas det vet jag inte...ska kolla nu!
Pom pom pom pom...JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!
JIPPIEEEEE!
Hur ska jag kunna tacka dig?? TACK SÅ HEMSKT MYCKET FÖR ALL HJÄLP!
Med risk för att vara tjatig...HURRA FÖR WF! :) ;) :P 

Ska dock fråga lite om hur jag fixar brevet lite mer "personligt", säg att jag mitt i texten vill ha, och nu har du, (namn på person som registrerat sig), anmält ditt intresse.
Hur skriver jag kod så att namn på person som registrerat sig kommer automatiskt?

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

## #44 — Sebbe, 2003-04-05T19:38Z

```
  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 = "Tack för att du, " & strNamn & " visar ditt intresse!"
    objMail.Send
    Set objMail = Nothing
  End If
  Set objRS = Nothing
End If
objConn.Close
Set objConn = Nothing
```

Borde funka?

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

## #45 — [AMD]Zmaster, 2003-04-05T19:41Z

Hur gör jag om jag vill ha flera rader?

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

## #46 — [AMD]Zmaster, 2003-04-05T19:45Z

(Det du skrev ovan funkade perfekt)

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

## #47 — Sebbe, 2003-04-05T19:52Z

Om du vill ha flera rader och inte använda HTML tror jag detta funkar:

```
strMeddelande = "Tack för att du, " & strNamn & " visar ditt intresse" & vbCrLf & "Här är nästa rad!" & vbCrLf & "Här är tredje raden!"
objMail.Body = strMeddelande
```

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

## #48 — [AMD]Zmaster, 2003-04-05T20:10Z

Oki tack!

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

---

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