---
title: "Fel på ifsats"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/93154-fel-på-ifsats"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MickeA.com"
published: "2003-12-20T19:19:30.000Z"
updated: "2003-12-20T19:19:30.000Z"
replies: 0
views: 189
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/93154-fel-på-ifsats"
---
# Fel på ifsats
## #1 — MickeA.com, 2003-12-20T19:19Z
Hej
En webshop jag håller på med strular. I ifsatsen nedan så körs BÅDE if & else, har man redan reggat sig, om ens emailadress redan finns, så funkar det, då säger den till om det.
Men om den **inte** finns, så får man samma meddelande "Emailadress du angav finns redan". Trots det skickas ett mail till adressen, med ett slumpat lösenord osv.
```
If Request.Querystring("step") = "1" Then
'Samlar mailadressen i en variabel, eftersom den kommer användas som 'Global' senare.
mail = Trim(Replace(Request.Form("email"),"'", "''"))
'Databaskopplingen
db()
'Kolla så att mailadressen inte redan finns i databasen, vi vill ju inte ha dubletter ;)
strSQL = "SELECT Mail FROM tbl_kund WHERE Mail = '" & mail & "';"
Set oRec2 = oConn.Execute(strSQL)
'If oRec2.recordcount = 0 Then
If Not oRec2.EOF then
Response.Write("
Emailadress finns redan registrerad, välj en annan
")
Else
'Loop för att kolla om det slumpade lösenordet redan finns, isåfall, skapa ett nytt.
bOk = False
While Not bOK
strPassw = getRandomChars(10)
Set oRec = oConn.Execute("SELECT Passw FROM tbl_kund WHERE Passw = '" & strPassw & "'")
If oRec.EOF Then
bOk = True
'Set oRec = NOTHING 'Nollställer objectet 'oRec' (Recordset) som jobbar mot databasen.
'Lagra Mailadress & Lösenord + samla alla övriga uppgifter variabler för lättare hantering.
typ = Trim(Replace(Request.Form("typ"),"'", "''"))
If typ = "foretag" Then kundtyp = "Företagskund" Else kundtyp = "Privatkund" End If
namn = "default0"
kontakt = "default1"
po_nummer = "default2"
adress = "default3"
gatunummer = "default4"
postnummer = "default5"
postadress = "default6"
tele = "default7"
hemsida = "default8"
initDate = date()
'Skapa Objektet 'Jmail', som ska skicka mailet med lösenordet
set msg = Server.CreateObject( "JMail.Message" )
msg.Logging = true
msg.silent = true
'Förbered Mailet som ska skickas till den nya kunden,
msg.From = "NoReply@MickeA.com" 'Adress som mailet ska skickas IFRÅN, detta kan vara vilken som helst.
msg.FromName = "Jonas Näslund AB" 'Namet på den som skickat mailet
msg.AddRecipient mail 'Adressen dit mailet ska skickas, alltså den mail man matat in i formuläret.
msg.Subject = "Ditt Lösenord Till Webshopen." 'Mailets Ämne
'Urformar Meddelande rutan:
msg.HTMLbody = "_________________________________________________________
" &_
"Hej " &_
"Här kommer dina uppgifter till Webshopen:
" &_
"Fortsätt Registreringen genom att gå tillbaka till sidan och fyll i uppgifterna. (Kopiera & Klista In) " &_
"Vi vill samtidigt passa på att hälsa dig varmt välkommen som kund hos oss.
" &_
"_________________________________________________________ " &_
"Detta är ett automatiskt utskick, mail kan EJ skickas till denna adress.
"
'Initerar IF-Satsen som ska skicka mailet:
If msg.send("smtp.bredband.net") Then 'Ställ in DIN EGEN 'server för utgående mail' (SMTP)
Response.Write("
" &_
"
Mailet Skickades Till '"& mail & "' !!!
" &_
"
" &_
"
" &_
"
")
'Set oRec = NOTHING 'Nollställer objektet 'oRec' som jobbar mot databasen.
'Skapa SQLfrågan som ska mata in uppg. i databasen
strSQL = "INSERT INTO tbl_kund (Kundtyp, Fnamn, Kontakt, PO_Nummer, Adress, Gatunummer, Postnummer, Postadress, Tele, Mail, Hemsida, initDate, Passw) VALUES ('" & kundtyp & "', '" & namn & "', '" & kontakt& "', '" & po_nummer & "', '" & adress & "', '" & gatunummer & "', '" & postnummer & "', '" & postadress & "', '" & tele & "', '" & mail & "', '" & hemsida & "', '" & initDate & "', '" & strPassw & "');"
'Mata in uppgifter i db'n, sätt alla utom namn, mailadress och passw till "default"
Set oRec = oConn.Execute(strSQL)
Else
Response.Write("
" & msg.log & "
")
End If
'Set msg = NOTHING 'Nollställer objektet 'msg' som är mailkomponenten.
End If
Wend
End If
```
Tycker det hela är mkt konstigt, men mkt möjligt kan jag ngnstans gjort fel, men var?
Tack !
Permalänk: https://www.webforum.nu/p/93154
---
Tråden på webben: https://www.webforum.nu/amne/asp/93154-fel-på-ifsats
