<%if mode = \"sms2\" then
if request(\"fra\") = \"\" or request(\"besked\") = \"\" or request(\"nr\") = \"\" then
%>
<font face=\"Verdana\" size=\"2\">Du skal udfylde alle felter</font>
<%
fejl = 1
end if
if not fejl = 1 then
Set xobj = CreateObject(\"SOFTWING.ASPtear\")
strPostData = \"name=\" & request(\"fra\") & \"&sender=\" & request(\"fra\") & \"&message=\" & request(\"besked\") & \"&extrato=\" & request(\"nr\")
strRetVal = xObj.Retrieve(\"
http://www.netdate.nu/netdate.nu/simplesms.cgi\",1,strPostData,\"\",\"\")
Set xobj = CreateObject(\"SOFTWING.ASPtear\")
strPostData = \"name=\" & request(\"fra\") & \"&sender=\" & request(\"fra\") & \"&message=\" & request(\"besked\") & \"&extrato=\" & request(\"nr\")
strRetVal = xObj.Retrieve(\"
http://www.netdate.nu/netdate.nu/sendsimple.cgi\",1,strPostData,\"\",\"\")
if InStr(strRetval, \"Beskeden er modtaget af telefonen.\") then
response.write \"<font face=Verdana size=2>Beskeden er afleveret til telefonen.</font>\"
end if
if instr(strRetval, \"Telefonen er slukket, udenfor dækning eller for dårlig modtagelse. Systemet vil aflevere beskeden snarest mulig, dog vil beskeden gå tabt efter 24 timer.\") then
response.write \"<font face=Verdana size=2>Telefonen er uden for dækning, eller også er den slukket. Eller også har du ikke indtaste et rigtigt nummer. Vi vil forsøge sende de næste 2 dage...</font>\"
end if
end if
end if%>
<%if mode = \"\" then%>
<p align=\"center\"><font face=\"Verdana\" size=\"3\">Sms</font></p>
<%
\'<div align=\"center\"><a href=\"body.asp?mode=fsms\">Tryk her for flere modtager</a><br></div>
%>
<form action=\"sms.asp\" method=\"post\">
<input type=\"hidden\" name=\"mode\" value=\"sms2\">
<div align=\"center\">
<center>
<table border=\"0\" width=\"50%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"18%\"><font face=\"Verdana\" size=\"2\">Modtager:</font></td>
<td width=\"82%\"><input type=\"text\" name=\"nr\" style=\"color: Green; font-family: Verdana; font-size: 10;\"></td>
</tr>
<tr>
<td width=\"18%\"><font face=\"Verdana\" size=\"2\">Afsender:</font></td>
<td width=\"82%\"><input type=\"text\" name=\"fra\" style=\"color: Green; font-family: Verdana; font-size: 10;\"></td>
</tr>
<tr>
<td width=\"18%\"><font face=\"Verdana\" size=\"2\">Beskeder:</font></td>
<td width=\"82%\">
<select name=\"sel\" onchange=\"besked.value=sel[sel.selectedIndex].value\">
<option value=\"\">---Kvik besked---</a></option>
<option value=\"Jeg elsker dig?\">Jeg elsker dig?</a></option>
<option value=\"Skal du noget i aften?\">Skal du noget i aften?</a></option>
<option value=\"Hva så sket noget nyt?\">Hva så sket noget nyt?</option>
<option value=\"Tihi, hvor sjovt!\">Tihi, hvor sjovt!</option>
</select></td>
</tr>
<tr>
<td width=\"18%\"><font face=\"Verdana\" size=\"2\">Besked:</font></td>
<td width=\"82%\"><textarea cols=\"30\" rows=\"3\" name=\"besked\" style=\"color: Green; font-family: Verdana; font-size: 10;\"></textarea></td>
</tr>
<tr>
<td width=\"18%\"><font face=\"Verdana\" size=\"2\">Gem Besked</font></td>
<td width=\"82%\"><input type=\"checkbox\" name=\"gem\" value=\"ja\"></td>
</tr>
</table>
<input type=\"submit\" value=\"Send\" style=\"color: Green; font-family: Verdana; font-size: 10;\">
<br>
</center>
</div>
</form>
<%end if%>