Sv: BESTÄLLNINGSFORMULÄR

BESTÄLLNINGSFORMULÄR

Postades av 2003-04-01 12:02:56 - Tobias Bindemo, i forum asp - allmänt, Tråden har 5 Kommentarer och lästs av 558 personer

Hej!

Håller på att göra ett beställningsformulär. Men det fungerar inte.. Ser inte vad jag gjort för fel i kodningen. Kan någon hjälpa mig?

<code>
<%

Dim btn
Dim fel
Dim errBuff

' -- utgår från att allt är rätt
fel = 0
tack = 0

' -- hämtar in parametrar
btn = Lcase(Request("btn"))

sokmotorreg = Trim(Request("sokmotorreg"))
lstlangd = Request("lsLangd")
metaoptimering = Trim(Request("metaoptimering"))
lstStatistikrapporter = Request("lsStatistikrapporter")
erbjudande = Trim(Request("erbjudande"))
foretag = Trim(Request("foretag"))
kontaktperson = Trim(Request("kontaktperson"))
adress = Trim(Request("adress"))
postnummer = Trim(Request("postnummer"))
ort = Trim(Request("ort"))
orgnr = Trim(Request("orgnr"))
telefon = Trim(Request("telefon"))
alttelefon = Trim(Request("alttelefon"))
fax = Trim(Request("fax"))
epost = Trim(Request("epost"))
hemsida = Trim(Request("hemsida"))
metoptord = Trim(Request("metaoptord"))
metaoptord_vi = Trim(Request("metaoptord_vi"))
metaoptbesk = Trim(Request("metaoptbesk"))
metaoptbesk_vi = Trim(Request("metaoptbesk_vi"))
kommentarer = Trim(Request("kommentarer"))
godkannande = Trim(Request("godkannande"))

autosvar = Request("autosvar")

' -- pekar ut vilken som är selekterad
strLangd = "<input type=radio name=lsLangd value=""1 år""> 1 år</input>" & vbCrLf & _
"<br><input type=radio name=lsLangd value=""2 år""> 2 år</input><br><br>" & vbCrLf

strLangd = Replace(strLangd, """" & lstLangd & """", """" & lstLangd & """ checked")

strStatistikrapporter = "<input type=radio name=lsStatistikrapporter value=""Svenska""> Svenska</input>" & vbCrLf & _
"<br><input type=radio name=lsStatistikrapporter value=""Engelska""> Engelska</input>" & vbCrLf

strLangd = Replace(strLangd, """" & lstLangd & """", """" & lstLangd & """ checked")

' -- skall vi kolla formuläret
If btn = "skicka" Then
fel = 0
tack = 1
errBuff = ""

if len(sokmotorreg) < "1" Then
errBuff = errBuff & "<b>» </b><font color=#FF0000></b>Ange antal arbetsplatser<br></font>": fel = 1
end if

if lstLangd < 1 then
errBuff = errBuff & "<b>» </b><font color=#FF0000></b>Arbetsyta är inte valt<br></font>": fel = 1
end if

if len(lstStatistikrapporter) = 0 then
errBuff = errBuff & "<b>» </b><font color=#FF0000></b>Du har inte angett någon e-postadress<br></font>": fel = 1
end if

if len(foretag) = 0 then
errBuff = errBuff & "<b>» </b><font color=#FF0000></b>Du har inte angett någon kontaktperson<br></font>": fel = 1
end if

if len(kontaktperson) = 0 then
errBuff = errBuff & "<b>» </b><font color=#FF0000></b>Du har inte angett någon e-postadress<br></font>": fel = 1
end if

if len(adress) = 0 then
errBuff = errBuff & "<b>» </b><font color=#FF0000></b>Du har inte angett någon adress<br></font>": fel = 1
end if

if len(postnummer) = 0 then
errBuff = errBuff & "<b>» </b><font color=#FF0000></b>Du har inte angett något postnummer<br></font>": fel = 1
end if

if len(ort) = 0 then
errBuff = errBuff & "<b>» </b><font color=#FF0000></b>Du har inte angett någon postadress<br></font>": fel = 1
end if

if len(orgnr) = 0 then
errBuff = errBuff & "<b>» </b><font color=#FF0000></b>Du har inte angett något telefonnummer<br></font>": fel = 1
end if

if len(telefon) = 0 then
errBuff = errBuff & "<b>» </b><font color=#FF0000></b>Du har inte angett något telefonnummer<br></font>": fel = 1
end if

if len(epost) = 0 then
errBuff = errBuff & "<b>» </b><font color=#FF0000></b>Du har inte angett något telefonnummer<br></font>": fel = 1
end if

if len(hemsida) = 0 then
errBuff = errBuff & "<b>» </b><font color=#FF0000></b>Du har inte angett något telefonnummer<br></font>": fel = 1
end if

if len(godkannande) = 0 then
errBuff = errBuff & "<b>» </b><font color=#FF0000></b>Du har inte angett något telefonnummer<br></font>": fel = 1
end if

' -- skickar ett mail som bekräftelse till beställaren

Set CDONTSMail = Server.CreateObject("CDONTS.NewMail")
CDONTSMail.From = "tobias.bindemo@spray.se" ' från företaget
CDONTSMail.To = autosvar ' skall vara mottagarens adress
CDONTSMail.Subject = "Beställningserkännande"
CDONTSMail.Body= "Vi har tagit emot din beställning och skickar en faktura inom 12 timmar. När full likvid erlagts påbörjar vi sökmotorregistreringen (och metaoptimering om du valt till det)." & vbCrLf & vbCrLf & "Med vänlig hälsning" & vbCrLf & "Searchit Sverige" & vbCrLf & "info@searchit-se.com"
CDONTSMail.Send
set CDONTSMail=nothing

' -- skickar mail till företaget

bekraftelse = "Skickat: " & now() & vbCrLf & VbCrLf
bekraftelse = bekraftelse & "Sökmotorregistrering : " & sokmotorreg & vbCrLf
bekraftelse = bekraftelse & " » Längd : " & lstLangd & vbCrLf
bekraftelse = bekraftelse & "Metaoptimering : " & metaoptimering & vbCrLf
bekraftelse = bekraftelse & "Statistikrapporter : " & lstStatistikrapporter & vbCrLf
bekraftelse = bekraftelse & "Erbjudande : " & erbjudande & vbCrLf
bekraftelse = bekraftelse & " " & vbCrLf
bekraftelse = bekraftelse & "Företag : " & foretag & vbCrLf
bekraftelse = bekraftelse & "Kontaktperson : " & kontaktperson & " " & Postadress & vbCrLf
bekraftelse = bekraftelse & "Adress : " & adress & vbCrLf
bekraftelse = bekraftelse & "Postnummer : " & postnummer & vbCrLf
bekraftelse = bekraftelse & "Ort : " & ort & vbCrLf
bekraftelse = bekraftelse & "Org.nr : " & orgnr & vbCrLf
bekraftelse = bekraftelse & "Telefon : " & telefon & vbCrLf
bekraftelse = bekraftelse & "Alt.telefon : " & alttelefon & vbCrLf
bekraftelse = bekraftelse & "Fax : " & fax & " " & Postadress & vbCrLf
bekraftelse = bekraftelse & "E-post: : " & epost & vbCrLf
bekraftelse = bekraftelse & "Hemsida : " & hemsida & vbCrLf
bekraftelse = bekraftelse & " " & vbCrLf
bekraftelse = bekraftelse & "Metaoptimering (ord) : " & metaoptord & vbCrLf
bekraftelse = bekraftelse & " » Vi : " & metaoptord_vi & vbCrLf
bekraftelse = bekraftelse & "Metaoptimering (besk) : " & metaoptbesk & vbCrLf
bekraftelse = bekraftelse & " » Vi : " & metaoptbesk_vi & vbCrLf
bekraftelse = bekraftelse & " " & vbCrLf
bekraftelse = bekraftelse & "Kommentarer : " & kommentarer & vbCrLf
bekraftelse = bekraftelse & "Godkännde allämmna villkor : " & godkannande & vbCrLf
bekraftelse = bekraftelse & " " & vbCrLf

Set CDONTSMail = Server.CreateObject("CDONTS.NewMail")
CDONTSMail.From = epost ' från besökare
CDONTSMail.To = autosvar ' företagets inkorg
CDONTSMail.Subject = "Beställning från hemsidan"
CDONTSMail.Body= Bekraftelse
CDONTSMail.Send

Else
Autosvar = "tobias.bindemo@spray.se"
End If

%>
<IMG src="bilder/bestall.gif"><BR>
<form method="POST" action="prisja.asp">
<%if fel = 0 and tack = 1 then%>
En bekräftelse på denna anmälan skickas nu till dig via
e-posten som du angav. <br>
Vi kontaktar dig så fort vi kan.<br>
<br>
Hälsningar<br>
Searchit Sverige<br>
  

<%else%>Fyll i uppgifterna nedan och välj <b>Skicka din beställning</b>. Fakturan får du inom två arbetsdagar, väljer du istället e-faktura får du den oftast inom tolv timmar. Analys och registrering av er hemsida påbörjas efter att full likvid erlagts. Samtliga priser är exklusive moms.<br><br>Om du har frågor eller funderingar är du välkommen att kontakta oss.<br><br><br>
<%if fel > 0 then%>
<br><br><font color="#FF0000">Följande fält är inte komplett
ifyllda!<br><%=errBuff%><br><br></font>
<%end if%>

<table><tr>

<td width="159" bgcolor="#F1F1F1" height="42" align="left" nowrap>
<font color="#000000">Tjänster: </font></td>
<td width="302" colspan="2" bgcolor="#CCCCCC" height="42">
<input type=checkbox name=sokmotorreg value="Ja"> Sökmotorregistrering</input><br><%=strLangd%><input type=checkbox name=metaoptimering value="Ja"> Metaoptimering</input>
</td>
<td width="160" rowspan="12" valign="top"></td>
</tr>

<tr>
<td width="130" valign="top" bgcolor="#F1F1F1" height="56">Statistikrapporter:</td>
<td width="415" bgcolor="#CCCCCC" height="56">Vi vill ha statistikrapporterna e-postade till oss på:<br>
<input type=radio name=lang value=""svenska"" checked nowrap>Svenska</input>
<br><input type=radio name=lstStatistikrapporter value=""engelska""nowrap>Engelska</input></td>
</tr>
<tr id="tr_domain">
<td valign="top" bgcolor="#F1F1F1" height="127">
Erbjudande:</td>
<td bgcolor="#CC0000"><table width=100% border=0 cellspacing=0 cellpadding=10><tr><td><b><font color=white size=2>Sökmotorregistrering (1 år) inkl. Metaoptimering, 2695:-</b><br><br><br></font><font color=white>Ordinarie pris är 2995:- för Sökmotorreg. första året,<br> påföljande år 2495:- samt 995:- för Metaoptimering.</td></tr></table></b>
</td>
</tr><tr><td bgcolor=#F1F1F1></td><td bgcolor=#CCCCCC>
<input type=checkbox name=erbjudande value="Ja">Ja, jag vill ta del av erbjudandet!</input></td></Tr>
<tr>
<td colspan="2" bgcolor="#F1F1F1" height="16"><b>Era uppgifter </b></td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">
Företag:</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>

<input name="foretag" value="<%=foretag%>" size="20"></strong> </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">Kontaktperson
</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>
<input name="kontaktperson" value="<%=kontaktperson%>" size="20"></strong></td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">Adress:</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>

<input name="adress" value="<%=adress%>" size="20"></strong> </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">Postnummer:
</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>
<input name="postnummer" value="<%=postnummer%>" size="20"></strong> </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">Ort:</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>
<input name="ort" value="<%=ort%>" size="20"></strong> </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">
Org.nr:</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>
<input name="orgnr" value="<%=orgnr%>" size="20"></strong> </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">
Telefon:
</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>
<input name="telefon" value="<%=telefon%>" size="25"></strong> </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">Alt. telefon:
</td>
<td width="415" bgcolor="#CCCCCC" height="16">
<strong><input name="alttelefon" value="<%=alttelefon%>" size="25"></strong> </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">Fax:
</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>
<input name="fax" value="<%=fax%>" size="20"></strong> </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">E-post:
</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>
<input name="epost" value="<%=epost%>" size="20"></strong> </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">Hemsida:</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>

<input name="hemsida" value="<%=hemsida%>" size="20"></strong></td>
</tr>
<tr>
<td colspan="2" bgcolor="#F1F1F1" height="16"><b>Uppgifter
gällande registreringen av er hemsida</b></td>
</tr> <tr>
<td width="130" bgcolor="#F1F1F1" height="16">Metaoptimering</td>
<td width="415" bgcolor="#CCCCCC" height="16">
Har ni valt tilläggstjänsten Metaoptimering behöver ni inte fylla
i uppgifterna nedan, det sköter vi</td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">
Kort beskrivning av er hemsida (syns vid sökning av er hemsida):</td>
<td width="415" bgcolor="#CCCCCC" height="16">
<textarea rows="3" name="metaoptbesk" cols="79"><%=metaoptbesk%></textarea> <br>
<input type="checkbox" name="metaoptbesk_vi" value="Ja"> Använd beskrivningen
som finns i META-taggarna på vår hemsida</td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">Ord som passar in på
er hemsida som ska användas vid registreringen av er hemsida:</td>
<td width="415" bgcolor="#CCCCCC" height="16">
<textarea rows="3" name="metaoptord" cols="79"><%=metaoptord%></textarea> <br>
<input type="checkbox" name="metaoptord_vi" value="Ja"> Använd orden som
finns i META-taggarna på vår hemsida</td>
</tr>

<tr>
<td height="13" colspan="2" bgcolor="#F1F1F1"> <b>Kommentarer</b></td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">Ev. kommentarer:</td>
<td width="415" bgcolor="#CCCCCC" height="16"><textarea rows="3" name="kommentarer" cols="25"><%=kommentarer%></textarea></strong></td>
</tr>
<tr>
<td height="13" colspan="2" bgcolor="#F1F1F1">
<b>Godkännande av våra Allmänna villkor</b></td>
</tr> <tr>
<td bgcolor="#F1F1F1" height="38">Allmänna
villkor:  </td>
<td bgcolor="#CCCCCC" height="38">
<input type="checkbox" name="godkannande" value="Ja"> Jag har läst och godkänner era
Allmänna villkor.<br>
</td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16"> </td>
<td width="415" bgcolor="#F1F1F1" height="16"> 
</td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" bordercolor="#FF3300" height="18"> </td>
<td width="415" bgcolor="#CCCCCC" height="18"><input type="submit" name="btn" value="Skicka">
</td>
</tr>
</table>

<%end if%>
</form> </TD></TR></TBODY></TABLE>
<IMG
src="bilder/normal_under.gif" width="626" height="7">

</code>

Svara