---
title: "Namninsamling??"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/93384-namninsamling"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "webbSAJTEN"
published: "2003-12-24T11:56:36.000Z"
updated: "2003-12-24T12:36:54.000Z"
replies: 3
views: 251
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/93384-namninsamling"
---

# Namninsamling??

## #1 — webbSAJTEN, 2003-12-24T11:56Z

Hejsan!
Skulle vilja skapa en namninsamling.. Kodningen skall vara i ASP..
Kan tyvärr inte så mycket om ASP just nu.. Jag kan lagra saker i en databas men det blir problem när jag ska hämta informationen..

Är det någon som vet vart det finns färdiga script eller vart det finns kurser för just det?

Eller är det någon som skulle kunna göra ett sånt script?
Har den personen en hemsida har den en granterad bannerplats på sidan!

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

## #2 — Wickmark, 2003-12-24T11:58Z

Menar du ett skript som lägger till namn i en databas och sen skriver ut dem?

God Jul förresten :D

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

## #3 — webbSAJTEN, 2003-12-24T12:00Z

Aaa..

Japp, det är så jag menar..
Fast inte direkt som en gästbok..

Det ska vara:

Namn - Ort - Email
Exempel:

Jimmy Grönwall - <jimmy.gronwall@chello.se> \- Haninge
Bosse - <Kalle_anka@hotmail.com> \- Umeo

En sådan uppställning

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

## #4 — Wickmark, 2003-12-24T12:36Z

Hmmm, ganska lätt att fixa en sådan funktion.

```
<%@Language="VBScript"%>
<%Session.LCID=1053 'sveriges datumformat%>
<!--#include virtual="/adovbs.inc"-->

<%
    dim objConn
    dim objRS
     
      Set objConn = Server.CreateObject("ADODB.Connection")
      Set objRS = Server.CreateObject("ADODB.RecordSet")
        
          objConn.Open "PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source="&Server.MapPath("/databas.mdb")
if Request.QueryString("p") = "" then
          objRS.Open "SELECT * FROM [namninsamling] ORDER BY ID DESC", objConn, adOpenStatic, adLockReadOnly, adCmdTableDirect
else
          objRS.Open "SELECT * FROM [namninsamling] ORDER BY ID DESC", objConn, adOpenStatic, adOpenStatic, adCmdTableDirect
dim strNamn, strEmail, strOrt
strNamn = Request.Form("namn")
strEmail = request.Form("email")
strOrt = Request.Form("ort")

 if not len(strNamn) <= 1 or len(strEmail) <= 1 or len(strOrt) <= 1 then
    objRS.AddNew
          objRS("namn")= strNamn
          objRS("email")= strEmail
          objRS("ort")= strOrt 
    objRS.Update
 else
   Response.Write("<font color=red>Du måste fylla i all information</font>") 
 end if

end if

if objRS.EOF then
  Response.Write("<em>Inga namn</em>")
else
  Do Until objRS.EOF
     Response.write(objRS("namn")&" - "&objRS("email")&" - "&objRS("ort"))
  Loop
end if

objRS.Close : Set objRS = Nothing
objConn.Close :Set objConn = Nothing

With Response
   .write("<form action=""[b]Dokumentets namn[/b].asp?p=add"" method=""post"" name=""AddName"">"&vbcrlf)
   .write("Namn: <input type=""text"" name=""namn""><br>"&vbcrlf)
   .write("Email: <input type=""text"" name=""email""><br>"&vbcrlf)
   .write("Ort: <input type=""text"" name=""ort"">"&vbcrlf)
   .write("<br><br><input type=""submit"" value="" Lägg till "">")
   .write("</form>")
End With
%>
```

(kan finnas möjliga skrivfel i koden, kan inte testa den just nu)

Allt du behöver göra är att fixa en access databas, med tabellen "namninsamling" med 3 kolumner: namn, epost och ort.

MVH

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/93384-namninsamling