---

Husk at jeg er nybegynder med det med database...
Jeg vil lave en aspfil der skriver i en tabel i en database, feks
fornavn og efternavn. som jeg får tilsendt ved adressen feks..
registrer.asp?fornavn=martin&efternavn=andersen

Skal min asp fil så se ud som dette...
Set Con = Server.CreateObject("ADODB.Connection")
DBPath =
"DBQ=D:\websider\global\service2001.dk\service2001.dk\db\counter.
mdb"
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

Function fixQuotes( theString )
   fixQuotes = Replace( theString, "'", "''" )
End Function

If Session("Count") = "" Then
   Session("Count") = "Hit"

f = Request("fornavn")
e = Request("efternavn")

If Referent = "" Then
Referent = "Direkte forespørgsel"
End If

Sql = "INSERT INTO count (f, e) VALUES('" & fixQuotes(f) & "','"
& fixQuotes(e) & "','"')"
Con.Execute(Sql)


--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Martin andersen wrote in news:9tokc6$7r0$1@sunsite.dk:

> Husk at jeg er nybegynder med det med database...
> Jeg vil lave en aspfil der skriver i en tabel i en database, feks
> fornavn og efternavn. som jeg får tilsendt ved adressen feks..
> registrer.asp?fornavn=martin&efternavn=andersen
>
> Skal min asp fil så se ud som dette...

jeps ... det ser meget tilforladeligt ud ...

>
> Function fixQuotes( theString )
> fixQuotes = Replace( theString, "'", "''" )
> End Function
>

du bør nok også lave en replace på "

>
> Sql = "INSERT INTO count (f, e) VALUES('" & fixQuotes(f) & "','"
> & fixQuotes(e) & "','"')"

du prøver at indsætte tre værdier i to felter ... hvilket ikke giver så
meget mening.

Prøv i stedet med :

strSQL = "INSERT INTO COUNT (f,e) " &_
"VALUES ('" & fixQuotes(f) & "','" & fixQuotes(e) & "')"

--
Jesper Stocholm
http://stocholm.dk

Gad vide hvor lang tid der går, inden danskerne
finder ud af, at de har købt katten i sækken til valget ...

---

det vil sige at det her var bedre... men skal der virkelig stå &_ ved
strSQL= linien

<%
Set Con = Server.CreateObject("ADODB.Connection")
DBPath =
"DBQ=D:\websider\global\service2001.dk\service2001.dk\db\counter.mdb"
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

Function fixQuotes( theString )
   fixQuotes = Replace( theString, "'", "''" )
End Function

If Session("Count") = "" Then
   Session("Count") = "Hit"

bw = Request("bw")
bh = Request("bh")
Tid = Time
Dato = Date

If Referent = "" Then
Referent = "Direkte forespørgsel"
End If

strSQL = "INSERT INTO COUNT (bw, bh, time, date) " &_ "VALUES ('" &
fixQuotes(bw) & "','" & fixQuotes(bh) & "','" & fixQuotes(time) & "','" &
fixQuotes(date) & "')"
Con.Execute(strSQL)

Con.Close
Set Con = Nothing

End If
%>




--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

martin andersen wrote in news:9toofk$fn7$1@sunsite.dk:

> det vil sige at det her var bedre... men skal der virkelig stå &_ ved
> strSQL= linien
>

det er blot en måde at splitte en tekststreng over flere linier. Så kan du
fx overskue hele din kode uden at skulle scrolle vandret hele tiden.

PS: vil du ikke være venlig at kigge på siden

http://www.usenet.dk/netikette/quote.html

--
Jesper Stocholm - http://stocholm.dk

Gad vide hvor lang tid der går, inden danskerne
finder ud af, at de har købt katten i sækken til valget ...