webForumDet fria alternativet
Logga in / Bli medlem

Hur gör man????

ASP

25 svar · 912 visningar · startad av ragnared

ragnaredMedlem sedan apr. 2003152 inlägg
Frågan#1

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 .

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#2

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!

Krikos avatarKrikoMedlem sedan dec. 2006382 inlägg
#3

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.

ragnaredMedlem sedan apr. 2003152 inlägg
#4

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

 

%>

<form action="nykund.asp?inputnum=1" name="Login2" method="post" onsubmit="return checkForm2( this );">

<center>

<table border="0" width="400" cellspacing="1" id="table1">
	<tr>
		<td width="390" height="75" colspan="5">
		<p align="left"><b><font size="2" face="Verdana">KUNDREGISTRERING</font></b></td>
		</tr>
	<tr>
		<td width="108" height="9"><font size="1" face="Verdana">Förnamn</font></td>
		<td width="22" align="center" valign="middle" height="9">
		<font face="Verdana" size="1">*</font></td>
		<td width="260" colspan="3" height="9">
						
						<input class="input" type="Text" name="fornamn1" value="" style="width:226;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font face="Verdana" size="1">Efternamn</font></td>
		<td width="22" align="center" valign="middle" height="34">
		<font face="Verdana" size="1">*</font></td>
		<td width="260" colspan="3" height="34">
						
						<input class="input" type="Text" name="efternamn1" value="" style="width:226;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font face="Verdana" size="1">Personnr/Orgnr</font></td>
		<td width="22" align="center" valign="middle" height="34">
		<font face="Verdana" size="1">*</font></td>
		<td width="260" colspan="3" height="34">
						
						<input class="input" type="Text" name="personnr1" value="" style="width:225;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font size="1" face="Verdana">Hitta på 
ditt eget lösenord:</font></td>
		<td width="22" align="center" valign="middle" height="34">
		<font face="Verdana" size="1">*</font></td>
		<td width="260" colspan="3" height="34">
						
						<input class="input" type="password" name="losen1" value="" style="width:118;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font size="1" face="Verdana">Upprepa 
ditt lösenord:</font></td>
		<td width="22" align="center" valign="middle" height="34">
		<font face="Verdana" size="1">*</font></td>
		<td width="260" colspan="3" height="34">
						
						<input class="input" type="password" name="losen2" value="" style="width:118;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font size="1" face="Verdana">Adress:</font></td>
		<td width="22" align="center" valign="middle" height="34">
		<font face="Verdana" size="1">*</font></td>
		<td width="118" height="34">
						
						<input class="input" type="Text" name="adress1" value="" style="width:118;border: 1px solid black; height:21;"></td>
		<td width="25" height="34">
<p align="center"><font size="1" face="Verdana">Nr</font></td>
		<td width="111" height="34">
						
						<input class="input" type="Text" name="husnr1" value="" style="width:38;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font size="1" face="Verdana">Postnr:</font></td>
		<td width="22" align="center" valign="middle" height="34">
		<font face="Verdana" size="1">*</font></td>
		<td width="260" colspan="3" height="34">
						
						<input class="input" type="Text" name="postnr1" value="" style="width:118;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font size="1" face="Verdana">Stad:</font></td>
		<td width="22" align="center" valign="middle" height="34">
		<font face="Verdana" size="1">*</font></td>
		<td width="260" colspan="3" height="34">
						
						<input class="input" type="Text" name="stad1" value="" style="width:118;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font size="1" face="Verdana">Tel. 
(dagtid)</font></td>
		<td width="22" align="center" valign="middle" height="34">
		<font face="Verdana" size="1">*</font></td>
		<td width="260" colspan="3" height="34">
						
						<input class="input" type="Text" name="tel1" value="" style="width:226;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font face="Verdana" size="1">
Mobiltelefon:</font></td>
		<td width="22" align="center" valign="middle" height="34">
		&nbsp;</td>
		<td width="260" colspan="3" height="34">
						
						<input class="input" type="Text" name="mobil1" value="" style="width:226;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font face="Verdana" size="1">E-post:</font></td>
		<td width="22" align="center" valign="middle" height="34">
		<font face="Verdana" size="1">*</font></td>
		<td width="260" colspan="3" height="34">
						
						<input class="input" type="Text" name="email1" value="" style="width:226;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34">&nbsp;</td>
		<td width="22" align="center" valign="middle" height="34">&nbsp;</td>
		<td width="260" colspan="3" height="34">
<input type="submit" value="Skicka registrering" NAME=Submit></td>
	</tr>
	<tr>
		<td width="108" height="34">&nbsp;</td>
		<td width="22" align="center" valign="middle" height="34">&nbsp;</td>
		<td width="260" colspan="3" height="34">
&nbsp;</td>
	</tr>
	<tr>
		<td width="108">&nbsp;</td>
		<td width="22" align="center" valign="middle">&nbsp;</td>
		<td width="260" colspan="3">&nbsp;</td>
	</tr>
</table>
</center>
</form>

<% 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)
%>  
        </center>
      </div>
  
      </form>
 

Ni är inloggade i forumet

<%end if%>
headbugs avatarheadbugMedlem sedan sep. 2006867 inlägg
#5

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 :)

ragnaredMedlem sedan apr. 2003152 inlägg
#6

Jag får inte det att fungera vad ska jag klistra in den texten

ragnaredMedlem sedan apr. 2003152 inlägg
#7

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

emissionMedlem sedan dec. 19996 721 inlägg
#8

Och vad står på den raden?

ragnaredMedlem sedan apr. 2003152 inlägg
#9

texten spm finns här ovanför !

emissionMedlem sedan dec. 19996 721 inlägg
#10

Då får du allt visa lite mer kod.

ragnaredMedlem sedan apr. 2003152 inlägg
#11

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

 

%>

<form action="nykund.asp?inputnum=1" name="Login2" method="post" onsubmit="return checkForm2( this );">

<center>

<table border="0" width="400" cellspacing="1" id="table1">
	<tr>
		<td width="390" height="75" colspan="5">
		<p align="left"><b><font size="2" face="Verdana">KUNDREGISTRERING</font></b></td>
		</tr>
	<tr>
		<td width="108" height="9"><font size="1" face="Verdana">Förnamn</font></td>
		<td width="22" align="center" valign="middle" height="9">
		<font face="Verdana" size="1">*</font></td>
		<td width="260" colspan="3" height="9">
						
						<input class="input" type="Text" name="fornamn1" value="" style="width:226;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font face="Verdana" size="1">Efternamn</font></td>
		<td width="22" align="center" valign="middle" height="34">
		<font face="Verdana" size="1">*</font></td>
		<td width="260" colspan="3" height="34">
						
						<input class="input" type="Text" name="efternamn1" value="" style="width:226;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font face="Verdana" size="1">Personnr/Orgnr</font></td>
		<td width="22" align="center" valign="middle" height="34">
		<font face="Verdana" size="1">*</font></td>
		<td width="260" colspan="3" height="34">
						
						<input class="input" type="Text" name="personnr1" value="" style="width:225;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font size="1" face="Verdana">Hitta på 
ditt eget lösenord:</font></td>
		<td width="22" align="center" valign="middle" height="34">
		<font face="Verdana" size="1">*</font></td>
		<td width="260" colspan="3" height="34">
						
						<input class="input" type="password" name="losen1" value="" style="width:118;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font size="1" face="Verdana">Upprepa 
ditt lösenord:</font></td>
		<td width="22" align="center" valign="middle" height="34">
		<font face="Verdana" size="1">*</font></td>
		<td width="260" colspan="3" height="34">
						
						<input class="input" type="password" name="losen2" value="" style="width:118;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font size="1" face="Verdana">Adress:</font></td>
		<td width="22" align="center" valign="middle" height="34">
		<font face="Verdana" size="1">*</font></td>
		<td width="118" height="34">
						
						<input class="input" type="Text" name="adress1" value="" style="width:118;border: 1px solid black; height:21;"></td>
		<td width="25" height="34">
<p align="center"><font size="1" face="Verdana">Nr</font></td>
		<td width="111" height="34">
						
						<input class="input" type="Text" name="husnr1" value="" style="width:38;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font size="1" face="Verdana">Postnr:</font></td>
		<td width="22" align="center" valign="middle" height="34">
		<font face="Verdana" size="1">*</font></td>
		<td width="260" colspan="3" height="34">
						
						<input class="input" type="Text" name="postnr1" value="" style="width:118;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font size="1" face="Verdana">Stad:</font></td>
		<td width="22" align="center" valign="middle" height="34">
		<font face="Verdana" size="1">*</font></td>
		<td width="260" colspan="3" height="34">
						
						<input class="input" type="Text" name="stad1" value="" style="width:118;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font size="1" face="Verdana">Tel. 
(dagtid)</font></td>
		<td width="22" align="center" valign="middle" height="34">
		<font face="Verdana" size="1">*</font></td>
		<td width="260" colspan="3" height="34">
						
						<input class="input" type="Text" name="tel1" value="" style="width:226;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font face="Verdana" size="1">
Mobiltelefon:</font></td>
		<td width="22" align="center" valign="middle" height="34">
		&nbsp;</td>
		<td width="260" colspan="3" height="34">
						
						<input class="input" type="Text" name="mobil1" value="" style="width:226;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34"><font face="Verdana" size="1">E-post:</font></td>
		<td width="22" align="center" valign="middle" height="34">
		<font face="Verdana" size="1">*</font></td>
		<td width="260" colspan="3" height="34">
						
						<input class="input" type="Text" name="email1" value="" style="width:226;border: 1px solid black; height:21;"></td>
	</tr>
	<tr>
		<td width="108" height="34">&nbsp;</td>
		<td width="22" align="center" valign="middle" height="34">&nbsp;</td>
		<td width="260" colspan="3" height="34">
<input type="submit" value="Skicka registrering" NAME=Submit></td>
	</tr>
	<tr>
		<td width="108" height="34">&nbsp;</td>
		<td width="22" align="center" valign="middle" height="34">&nbsp;</td>
		<td width="260" colspan="3" height="34">
&nbsp;</td>
	</tr>
	<tr>
		<td width="108">&nbsp;</td>
		<td width="22" align="center" valign="middle">&nbsp;</td>
		<td width="260" colspan="3">&nbsp;</td>
	</tr>
</table>
</center>
</form>

<% 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)
%>  
        </center>
      </div>
  
      </form>
 

Ni är inloggade i forumet

<%end if%>
emissionMedlem sedan dec. 19996 721 inlägg
#12

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

ragnaredMedlem sedan apr. 2003152 inlägg
#13

Jo men jag vet inte riktigt vad jag skall klistra in den förstans. Är inte så himla duktig på denna biten

ragnaredMedlem sedan apr. 2003152 inlägg
#14

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

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#15
[b]set[/b] rs_exists = server.createobject("ADODB.Recordset")
ragnaredMedlem sedan apr. 2003152 inlägg
#16

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.???

ragnaredMedlem sedan apr. 2003152 inlägg
#17

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]
%>  
        </center>
      </div>
  
      </form>
 

<p align="center"><font face="Verdana"><font size="2">Vi hälsar dig välkommen 
som kund hos oss på <br>Fotopiraten.se...<br><br>
</font><b><font size="2">För att komma till slutbetalning, 
<a href="password/password.asp">klicka här</a></font></b></font></p>
<p align="center">&nbsp;</p>

<%end if%>
headbugs avatarheadbugMedlem sedan sep. 2006867 inlägg
#18

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

ragnaredMedlem sedan apr. 2003152 inlägg
#19

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]
%>
ragnaredMedlem sedan apr. 2003152 inlägg
#20

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:

<b>Set RS = conn.execute(SQLstmt)</b>

292 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
120 ms — deklarationer (db)
0 ms — hämta statistik (cache)
147 ms — hämta tråd, inlägg och bilagor (db)
141 ms — ändringar (db)