---
title: "Hur gör man????"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/155821-hur-gör-man"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ragnared"
published: "2007-01-10T12:03:46.000Z"
updated: "2007-01-13T13:54:25.000Z"
replies: 25
views: 923
page: 1
pages: 2
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/155821-hur-gör-man"
---
# Hur gör man????
_Sida 1 av 2._
## #1 — ragnared, 2007-01-10T12:03Z
Jag håller på med att bygga ett forum där man ska registera sig i en databas och sedan kunna logga in. Men jag vill inte att man skall kunna registera sig merän en gång med samma e-post adress. Hur skriver man en sådan grej så att när dom försöker att skicka andra gången så skall man få upp att: denna epost finns redan .
Permalänk: https://www.webforum.nu/p/155821
## #2 — @nders, 2007-01-10T12:06Z
Snälla, snälla, snälla, snälla!
Skriv en vettig trådrubrik som har med trådens innehåll att göra!
Dessutom: använd \[kod\]-taggar så går din kod att läsa.
Hjälp oss att läsa dina inlägg, så får du säkert finfin hjälp!
Permalänk: https://www.webforum.nu/p/1919549
## #3 — Kriko, 2007-01-11T01:00Z
Du får väl fråga databasen något i stil med
```
"SELECT strEmail FROM tblUsers WHERE strEmail = '" & Replace(Replace(Request.Form("epost"), "\", "\\"), "'", "\'") & "'"
```
Returnerar databasen EOF så vet du att epostadressen ej har använts tidigare.
Permalänk: https://www.webforum.nu/p/1919810
## #4 — ragnared, 2007-01-11T16:40Z
Här är mitt script !!
Jo men jag får inte in det i mitt script men så här ser mitt script ut om det är någon snäll själ som kan hjälpa mig. håller på att bli tokig !
```
<%Session.LCID=1053%>
<%
dim losen1
dim fornamn1
dim efternamn1
dim personnr1
dim adress1
dim husnr1
dim postnr1
dim tel1
dim mobil1
dim email1
inputnum = request.querystring("inputnum")
If IsEmpty(inputnum) or inputnum = "" then
%>
<% else
losen = request.form("losen1")
fornamn = request.form("fornamn1")
efternamn = request.form("efternamn1")
personnr = request.form("personnr1")
adress = request.form("adress1")
husnr = request.form("husnr1")
postnr = request.form("postnr1")
stad = request.form("stad1")
tel = request.form("tel1")
mobil = request.form("mobil1")
email = request.form("email1")
' Yeah I got quotes praise the lord he he he
losen = Replace(request.form("losen1"), "'", "''")
fornamn = Replace(request.form("fornamn1"), "'", "''")
efternamn = Replace(request.form("efternamn1"), "'", "''")
personnr = Replace(request.form("personnr1"), "'", "''")
adress = Replace(Request.Form("adress1"), "'", "''")
husnr = Replace(request.form("husnr1"), "'", "''")
postnr = Replace(request.form("postnr1"), "'", "''")
stad = Replace(request.form("stad1"), "'", "''")
tel = Replace(request.form("tel1"), "'", "''")
mobil = Replace(request.form("mobil1"), "'", "''")
email = Replace(request.form("email1"), "'", "''")
set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("databas/main.mdb")
conn.Open DSNtemp
SQLstmt = "INSERT INTO login (losen,fornamn,efternamn,personnr,adress,husnr,postnr,stad,tel,mobil,email)"
SQLstmt = SQLstmt & " VALUES ("
SQLstmt = SQLstmt & "'" & losen & "',"
SQLstmt = SQLstmt & "'" & fornamn & "',"
SQLstmt = SQLstmt & "'" & efternamn & "',"
SQLstmt = SQLstmt & "'" & personnr & "',"
SQLstmt = SQLstmt & "'" & adress & "',"
SQLstmt = SQLstmt & "'" & husnr & "',"
SQLstmt = SQLstmt & "'" & postnr & "',"
SQLstmt = SQLstmt & "'" & stad & "',"
SQLstmt = SQLstmt & "'" & tel & "',"
SQLstmt = SQLstmt & "'" & mobil & "',"
SQLstmt = SQLstmt & "'" & email & "'"
SQLstmt = SQLstmt & ")"
Set RS = conn.execute(SQLstmt)
%>
Ni är inloggade i forumet
<%end if%>
```
Permalänk: https://www.webforum.nu/p/1920025
## #5 — headbug, 2007-01-11T17:47Z
Det enda stället som överhuvud taget kan veta att en epostadress redan finns är databasen. Alltså måste du kolla det innan du kör din insert.
Så du kan ungefär göra såhär:
```
Dim rs_exists
rs_exists = server.createobject("ADODB.Recordset")
rs_exists.open "select 1 from login where email = '" & email & "'", conn, 3, 4
if rs_exists.EOF and rs_exists.BOF then
' Vi hittade ingen sådan epostadress. Goahead och kläm in INSERT-koden här
else
' Ooops den emailen fanns visst
response.write "Ajaj, epostadressen är redan reggad hos oss."
end if
```
Jag är litre rostig men hoppas du förstår hur jag menade :)
Permalänk: https://www.webforum.nu/p/1920038
## #6 — ragnared, 2007-01-11T19:03Z
Jag får inte det att fungera vad ska jag klistra in den texten
Permalänk: https://www.webforum.nu/p/1920052
## #7 — ragnared, 2007-01-11T19:05Z
Får detta felmeddelande hela tiden
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'open'
/piraten/nykund.asp, line 374
Permalänk: https://www.webforum.nu/p/1920053
## #8 — emission, 2007-01-11T20:32Z
Och vad står på den raden?
Permalänk: https://www.webforum.nu/p/1920078
## #9 — ragnared, 2007-01-11T20:59Z
texten spm finns här ovanför !
Permalänk: https://www.webforum.nu/p/1920087
## #10 — emission, 2007-01-11T21:41Z
Då får du allt visa lite mer kod.
Permalänk: https://www.webforum.nu/p/1920094
## #11 — ragnared, 2007-01-12T16:20Z
kolla detta
Nej, jag menar att jag vill ha ett system inbyggt i detta som skulle funka så att när man försöker registrera sig och skickar det till databasen så skall den kunna känna av om emailen redan finns och iså fall skall det typ komma till en sida eller något liknande där det talar om det. Så här ser reg sidan ut:
```
<%Session.LCID=1053%>
<%
dim losen1
dim fornamn1
dim efternamn1
dim personnr1
dim adress1
dim husnr1
dim postnr1
dim tel1
dim mobil1
dim email1
inputnum = request.querystring("inputnum")
If IsEmpty(inputnum) or inputnum = "" then
%>
<% else
losen = request.form("losen1")
fornamn = request.form("fornamn1")
efternamn = request.form("efternamn1")
personnr = request.form("personnr1")
adress = request.form("adress1")
husnr = request.form("husnr1")
postnr = request.form("postnr1")
stad = request.form("stad1")
tel = request.form("tel1")
mobil = request.form("mobil1")
email = request.form("email1")
' Yeah I got quotes praise the lord he he he
losen = Replace(request.form("losen1"), "'", "''")
fornamn = Replace(request.form("fornamn1"), "'", "''")
efternamn = Replace(request.form("efternamn1"), "'", "''")
personnr = Replace(request.form("personnr1"), "'", "''")
adress = Replace(Request.Form("adress1"), "'", "''")
husnr = Replace(request.form("husnr1"), "'", "''")
postnr = Replace(request.form("postnr1"), "'", "''")
stad = Replace(request.form("stad1"), "'", "''")
tel = Replace(request.form("tel1"), "'", "''")
mobil = Replace(request.form("mobil1"), "'", "''")
email = Replace(request.form("email1"), "'", "''")
set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("databas/main.mdb")
conn.Open DSNtemp
SQLstmt = "INSERT INTO login (losen,fornamn,efternamn,personnr,adress,husnr,postnr,stad,t el,mobil,email)"
SQLstmt = SQLstmt & " VALUES ("
SQLstmt = SQLstmt & "'" & losen & "',"
SQLstmt = SQLstmt & "'" & fornamn & "',"
SQLstmt = SQLstmt & "'" & efternamn & "',"
SQLstmt = SQLstmt & "'" & personnr & "',"
SQLstmt = SQLstmt & "'" & adress & "',"
SQLstmt = SQLstmt & "'" & husnr & "',"
SQLstmt = SQLstmt & "'" & postnr & "',"
SQLstmt = SQLstmt & "'" & stad & "',"
SQLstmt = SQLstmt & "'" & tel & "',"
SQLstmt = SQLstmt & "'" & mobil & "',"
SQLstmt = SQLstmt & "'" & email & "'"
SQLstmt = SQLstmt & ")"
Set RS = conn.execute(SQLstmt)
%>
Ni är inloggade i forumet
<%end if%>
```
Permalänk: https://www.webforum.nu/p/1920285
## #12 — emission, 2007-01-12T16:49Z
Jo, det har jag förstått, men den kod du visar nu har ju ingen ändring i sig. Visa koden med de föreslagna ändringarna, så tar vi det därifrån.
headbugs kod är alldeles utmärkt att använda
Permalänk: https://www.webforum.nu/p/1920287
## #13 — ragnared, 2007-01-12T17:02Z
Jo men jag vet inte riktigt vad jag skall klistra in den förstans. Är inte så himla duktig på denna biten
Permalänk: https://www.webforum.nu/p/1920291
## #14 — ragnared, 2007-01-12T18:59Z
Nu har jag klistrat in den texten jag fick av headbug och får då fel meddelande:
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'Open'
/piraten/nykund.asp, line 539
och det är denna rad som den menar: rs_exists.open "select 1 from login where email = '" & email & "'", conn, 3, 4
Permalänk: https://www.webforum.nu/p/1920313
## #15 — @nders, 2007-01-12T19:20Z
```
[b]set[/b] rs_exists = server.createobject("ADODB.Recordset")
```
Permalänk: https://www.webforum.nu/p/1920314
## #16 — ragnared, 2007-01-12T19:39Z
Nu fick jag det att fungera men när jag lägger till en ny så får jag upp den texten: Ajaj, epostadressen är redan reggad hos oss.
Och det läggs inte heller till någon ny i databasen heller. Vad beror det på, inget felmeddelande heller.???
Permalänk: https://www.webforum.nu/p/1920319
## #17 — ragnared, 2007-01-12T20:24Z
Kolla här!!!
Så här ser fel meddelandet ut:
\[Microsoft\]\[ODBC Microsoft Access Driver\] The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.
/piraten/nykund.asp, line 565
och det är här där jag markerat med fetstil som den menaratt felet sitter, jag tar med en lite längre textsnut bara för att se om ni kan hitta felet:
```
set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("databas/main.mdb")
conn.Open DSNtemp
Dim rs_exists
set rs_exists = server.createobject("ADODB.Recordset")
rs_exists.open "select 1 from login where email = '" & email & "'", conn, 3, 4
if rs_exists.EOF and rs_exists.BOF then
' Vi hittade ingen sådan epostadress. Goahead och kläm in INSERT-koden här
else
' Ooops den emailen fanns visst
response.write "Ajaj, epostadressen är redan reggad hos oss."
end if
SQLstmt = "INSERT INTO login (losen,fornamn,efternamn,personnr,adress,husnr,postnr,stad,tel,mobil,email)"
SQLstmt = SQLstmt & " VALUES ("
SQLstmt = SQLstmt & "'" & losen & "',"
SQLstmt = SQLstmt & "'" & fornamn & "',"
SQLstmt = SQLstmt & "'" & efternamn & "',"
SQLstmt = SQLstmt & "'" & personnr & "',"
SQLstmt = SQLstmt & "'" & adress & "',"
SQLstmt = SQLstmt & "'" & husnr & "',"
SQLstmt = SQLstmt & "'" & postnr & "',"
SQLstmt = SQLstmt & "'" & stad & "',"
SQLstmt = SQLstmt & "'" & tel & "',"
SQLstmt = SQLstmt & "'" & mobil & "',"
SQLstmt = SQLstmt & "'" & email & "'"
SQLstmt = SQLstmt & ")"
[B]Set RS = conn.execute(SQLstmt)[/B]
%>
Vi hälsar dig välkommen
som kund hos oss på
Fotopiraten.se...
För att komma till slutbetalning,
klicka här
<%end if%>
```
Permalänk: https://www.webforum.nu/p/1923331
## #18 — headbug, 2007-01-13T00:16Z
Hej igen, som du kanske ser så har jag en kommentar som heter
```
' Vi hittade ingen sådan epostadress. Goahead och kläm in INSERT-koden här
```
Där hade jag alltså tänkt att du skulle flytta in ditt Set RS = conn.execute(SQLstmt). Alltså mellan if och else. Du måste såklart flytta upp SQLstmt = "INSERT INTO... osv ovanför if else.
Att det blir fel beror ju på att du gör en koll men sen struntar du fullständigt i att använda kollen - det är därför du måste flytta in INSERT i if/else-satsen, annars gör ju den ingen nytta. Förstår du?
:)
/Jonas
Permalänk: https://www.webforum.nu/p/1923369
## #19 — ragnared, 2007-01-13T09:57Z
funkade inte!!!
Nu har jag provat som du sa headbug men då jag skickar in som ny kund så registrera man sig men när emailen redan finns så kommer detta felmeddelande upp :
Ajaj, epostadressen är redan reggad hos oss.
Microsoft OLE DB Provider for ODBC Drivers error '80040e0c'
Command text was not set for the command object.
/piraten/nykund.asp, line 569
och felet ligger då där jag har fet makerat här under:
```
set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("databas/main.mdb")
conn.Open DSNtemp
Dim rs_exists
set rs_exists = server.createobject("ADODB.Recordset")
rs_exists.open "select 1 from login where email = '" & email & "'", conn, 3, 4
if rs_exists.EOF and rs_exists.BOF then
' Vi hittade ingen sådan epostadress.
SQLstmt = "INSERT INTO login (losen,fornamn,efternamn,personnr,adress,husnr,postnr,stad,tel,mobil,email)"
SQLstmt = SQLstmt & " VALUES ("
SQLstmt = SQLstmt & "'" & losen & "',"
SQLstmt = SQLstmt & "'" & fornamn & "',"
SQLstmt = SQLstmt & "'" & efternamn & "',"
SQLstmt = SQLstmt & "'" & personnr & "',"
SQLstmt = SQLstmt & "'" & adress & "',"
SQLstmt = SQLstmt & "'" & husnr & "',"
SQLstmt = SQLstmt & "'" & postnr & "',"
SQLstmt = SQLstmt & "'" & stad & "',"
SQLstmt = SQLstmt & "'" & tel & "',"
SQLstmt = SQLstmt & "'" & mobil & "',"
SQLstmt = SQLstmt & "'" & email & "'"
SQLstmt = SQLstmt & ")"
else
' Ooops den emailen fanns visst
response.write "Ajaj, epostadressen är redan reggad hos oss."
end if
[B]Set RS = conn.execute(SQLstmt)[/B]
%>
```
Permalänk: https://www.webforum.nu/p/1923385
## #20 — ragnared, 2007-01-13T10:00Z
flyttar jag upp den till dom andra så kvittar det hur jag gör. Både om man registrera sig som ny eller redan gammal så lägs man inte till i databasen
Denna text menar jag:
\Set RS = conn.execute(SQLstmt)\
Permalänk: https://www.webforum.nu/p/1923386
---
Tråden på webben: https://www.webforum.nu/amne/asp/155821-hur-gör-man
Nästa sida: https://www.webforum.nu/amne/asp/155821-hur-gör-man/page2.md