Sv: Behöver hjälp med ett beställingsfomulär!

Behöver hjälp med ett beställingsfomulär!

Postades av 2003-03-31 22:07:07 - Tobias Bindemo, i forum asp - allmänt, Tråden har 3 Kommentarer och lästs av 527 personer

Denna koden fick jag från Pelle. Jag har ändrat lite i koden. Istället för att ha som han hade (en nedrullningsbar meny) har jag valt att ha alternativknappar. När jag fyllt i formuläret och klickat på Skicka kommer allt med i mailet förutom "Rumsstorlek, yta i kvm".

Vad har jag gjort för fel? Någon som kan hjälpa mig?

------------------------------------------------------------------------

<%

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

lstStorlek = Request("lstStorlek")
arbetsplatser = Trim(Request("arbetsplatser"))
inflyttningsdatum = Trim(Request("inflyttningsdatum"))
foeretag = Trim(Request("foeretag"))
kontaktperson = Trim(Request("kontaktperson"))
Adress = Trim(Request("adress"))
Postnr = Trim(Request("postnr"))
PostAdress = Trim(Request("postadress"))
Telefon = Trim(Request("telefon"))
Mobil = Trim(Request("mobil"))
Fax = Trim(Request("fax"))
Epost = Trim(Request("epost"))
Kommentar = Trim(Request("kommentar"))

autosvar = Request("autosvar")

' -- pekar ut vilken som är selekterad
strYta = "<input type=radio name=lsStorlek value=""10"">10 kvm</input>" & vbCrLf & _
"<input type=radio name=lsStorlek value=""15"">15 kvm</input>" & vbCrLf & _
"<input type=radio name=lsStorlek value=""20"">20 kvm</input>" & vbCrLf & _
"<input type=radio name=lsStorlek value=""25"">25 kvm</input>" & vbCrLf & _
"<input type=radio name=lsStorlek value=""30"">30 kvm</input>" & vbCrLf

strYta = Replace(strYta, """" & lstStorlek & """", """" & lstStorlek & """ checked")

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

if lstStorlek < 1 then
errBuff = errBuff & "» Arbetsyta är inte valt ": fel = 1
end if

if arbetsplatser < "1" Then
errBuff = errBuff & "» Ange antal arbetsplatser ": fel = 1
end if

if inflyttnignsdatum <> "" Then
if not isdate(inflyttningsdatum) Then
errBuff = errBuff & "» Du har inte angett ett korrekt datum ": fel = 1
end if
end if

if len(foeretag) = 0 then
errBuff = errBuff & "» Du har inte angett företagsnamn ": fel = 1
end if

if len(kontaktperson) = 0 then
errBuff = errBuff & "» Du har inte angett någon kontaktperson ": fel = 1
end if

if len(epost) = 0 then
errBuff = errBuff & "» Du har inte angett någon e-postadress ": fel = 1
end if

if len(adress) = 0 then
errBuff = errBuff & "» Du har inte angett någon adress ": fel = 1
end if

if len(postnr) = 0 then
errBuff = errBuff & "» Du har inte angett något postnummer ": fel = 1
end if

if len(postadress) = 0 then
errBuff = errBuff & "» Du har inte angett någon postadress ": fel = 1
end if

if len(telefon) = 0 then
errBuff = errBuff & "» Du har inte angett något telefonnummer ": fel = 1
end if

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

Set CDONTSMail = Server.CreateObject("CDONTS.NewMail")
CDONTSMail.From = "tedde_2000@hotmail.com" ' från företaget
CDONTSMail.To = autosvar ' skall vara mottagarens adress
CDONTSMail.Subject = "Tack för din anmälan"
CDONTSMail.Body= "Vi har tagit emot din anmälan och kontaktar dig så fort vi kan, dock senast om 12 timmar." & vbCrLf & "/Searchit Sverige"
CDONTSMail.Send
set CDONTSMail=nothing

' -- skickar mail till företaget

bekraftelse = "Skickat: " & now() & vbCrLf & VbCrLf
bekraftelse = bekraftelse & "Antal kvm : " & lstStorlek & vbCrLf
bekraftelse = bekraftelse & "Arbetsplatser : " & arbetsplatser & vbCrLf
bekraftelse = bekraftelse & "Inflyttningsdatum : " & inflyttningsdatum & vbCrLf
bekraftelse = bekraftelse & "Företag : " & foeretag & vbCrLf
bekraftelse = bekraftelse & "Kontaktperson : " & kontaktperson & vbCrLf
bekraftelse = bekraftelse & "Adress : " & adress & vbCrLf
bekraftelse = bekraftelse & "Postnr, ort : " & postnr & " " & Postadress & vbCrLf
bekraftelse = bekraftelse & "Telefon : " & telefon & vbCrLf
bekraftelse = bekraftelse & "Mobil : " & mobil & vbCrLf
bekraftelse = bekraftelse & "Fax : " & fax & vbCrLf
bekraftelse = bekraftelse & "Epost : " & epost & vbCrLf
bekraftelse = bekraftelse & "Kommentar : " & vbCrLf & kommentar & 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 = "Anmälningsblankett"
CDONTSMail.Body= Bekraftelse
CDONTSMail.Send

Else
Autosvar = "tedde_2000@hotmail.com"
End If

%>

<html>

<head>
<meta http-equiv="Content-Language" content="sv">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<%if fel = 0 and tack = 1 then%>
<meta HTTP-EQUIV="Refresh" CONTENT="5;URL=bestalla.asp">
<%end if%>
<title>Intresseanmälan</title>
<style>

</style>
</head>

<body class="text">

Intresseanmälan
<form method="POST" action="bestalla.asp">
<table border="0" width="635" class="text" cellspacing="1" cellpadding="0">
<tr>
<td width="629" align="right" colspan="4" bgcolor="#C0C0C0">
<img border="0" src="../bilder/pix.gif" width="1" height="1"></td>
</tr>

<%if fel = 0 and tack = 1 then%>
<tr>
<td width="159" align="right" nowrap>  </td>
<td width="466" colspan="3">  
Tack för din anmälan 
En bekräftelse på denna anmälan skickas nu till dig via
e-posten som du angav.  
Vi kontaktar dig så fort vi kan. 
 
Hälsningar 
Searchit Sverige 
   </td>
</tr>

<%else%>

<tr>
<td width="159" align="right" nowrap></td>
<td width="466" colspan="3"> 
Ange vad det är du är intresserad av 
Fyll i nedanstående formulär så kontaktar vi dig så fort vi fått
informationen 
  </td>
</tr>

<%if fel > 0 then%>
<tr>
<td width="159" align="right" nowrap></td>
<td width="302" colspan="2">Följande fält är inte komplett
ifyllda! 
<%=errBuff%>
 
  </td>
<td width="160" valign="top"></td>
</tr>
<%end if%>

<tr>
<td width="159" align="right" nowrap>
* Rumsstorlek, yta i kvm  </td>
<td width="302" colspan="2">
<%=strYta%></td>
<td width="160" rowspan="12" valign="top"></td>
</tr>
<tr>
<td width="159" align="right" nowrap>* Antal arbetsplatser  </td>
<td width="76"><input type="text" name="arbetsplatser" size="20" class="inputbox" style="width: 34" value="<%=arbetsplatser%>"></td>
<td width="226">Infyttningsdatum  <input type="text" name="inflyttningsdatum" size="20" class="inputbox" style="width: 76" value="<%=inflyttningsdatum%>"></td>
</tr>
<tr>
<td width="159" align="right" nowrap>  </td>
<td width="302" colspan="2">  </td>
</tr>
<tr>
<td width="159" align="right" nowrap>* Företag  </td>
<td width="302" colspan="2"><input type="text" name="foeretag" size="20" class="inputbox" style="width: 262" value="<%=foeretag%>"></td>
</tr>
<tr>
<td width="159" align="right" nowrap>* Kontaktperson  </td>
<td width="302" colspan="2"><input type="text" name="kontaktperson" size="20" class="inputbox" style="width: 262" value="<%=kontaktperson%>"></td>
</tr>
<tr>
<td width="159" align="right" nowrap>* E-postadress   </td>
<td width="302" colspan="2"><input type="text" name="epost" size="20" class="inputbox" style="width: 262" value="<%=epost%>"></td>
</tr>
<tr>
<td width="159" align="right" nowrap></td>
<td width="302" colspan="2">  </td>
</tr>
<tr>
<td width="159" align="right" nowrap>* Adress  </td>
<td width="302" colspan="2"><input type="text" name="adress" size="20" class="inputbox" style="width: 262" value="<%=adress%>"></td>
</tr>
<tr>
<td width="159" align="right" nowrap>* Postnr,
ort  </td>
<td width="302" colspan="2"><input type="text" name="postnr" size="20" class="inputbox" style="width: 48" value="<%=postnr%>">
<input type="text" name="postadress" size="20" class="inputbox" style="width: 210" value="<%=postadress%>"></td>
</tr>
<tr>
<td width="159" align="right" nowrap>  </td>
<td width="302" colspan="2"></td>
</tr>
<tr>
<td width="159" align="right" nowrap>* Telefon  </td>
<td width="302" colspan="2"><input type="text" name="telefon" size="20" class="inputbox" value="<%=telefon%>"></td>
</tr>
<tr>
<td width="159" align="right" nowrap>Mobiltelefon  </td>
<td width="302" colspan="2"><input type="text" name="mobil" size="20" class="inputbox" value="<%=mobil%>"></td>
</tr>
<tr>
<td width="159" align="right" nowrap>Fax  </td>
<td width="302" colspan="2"><input type="text" name="fax" size="20" class="inputbox" value="<%=fax%>"></td>
</tr>
<tr>
<td width="159" align="right" nowrap>  </td>
<td width="302" colspan="2">  </td>
</tr>
<tr>
<td width="159" valign="top" align="right" nowrap>Kommentarer  </td>
<td width="466" colspan="3"><textarea rows="2" name="kommentar" cols="20" class="inputbox" style="width: 263; height: 161"><%=kommentar%></textarea></td>
</tr>
<tr>
<td width="159" align="right" nowrap>  </td>
<td width="466" colspan="3">  
* Är obligatoriska fält 
  </td>
</tr>
<tr>
<td width="159" align="right" nowrap></td>
<td width="466" colspan="3"><input type="submit" value="Skicka" name="btn" class="textruta"></td>
</tr>
<tr>
<td width="159" align="right" nowrap>  </td>
<td width="466" colspan="3"></td>
</tr>
<tr>
<td width="159" align="right" nowrap></td>
<td width="466" colspan="3">För demo: 
returnera ett autosvar till.. 
<input type="text" name="autosvar" size="20" class="inputbox" style="width: 262; height: 18" value="<%=autosvar%>"></td>
</tr>

<%end if%>

</table>
</form>

</body>

</html>

Svara