ICQ send
Hej...jeg sidder lige og leger med en ICQsender jeg har hentet... men den vil ikke sende... hvorfor
<%
' -----------------------------------------------------------------------
' ICQ Sender v1.0
' Udviklet af : Thomas Jørgensen - www.SouthPark2k.dk
' Dato : 2-Juni-2000
' Kommentar : Source må bruges frit, men husk at det kun må downloades
' fra Netcoders.dk
' PÅ linie 20 skal du skrive din Server adresse
' -----------------------------------------------------------------------
mode=request("mode")
if mode="send" then
FromName = "Besked fra "& Request.Form("FromName")
FromEmail = Request.Form("FromEmail")
Message = "Message: "& Request.Form("Message")
ICQnr = Request.Form("ICQnr")
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail.andersensdataservice.dk" ' Her skal du skrive dit!?
JMail.Priority = 1
JMail.Sender = FromEmail
JMail.Subject = FromName
JMail.Body = Message
JMail.AddRecipient ICQnr &"@pager.icq.com"
JMail.Execute
Set JMail = nothing
strSend = "<tr><td width=""100%""><p align=""center""><font face=""Verdana"" size=""2"" color=""#FFFFFF"">ICQ besked er nu send til "& Request.Form("ICQnr") &"<br><br></font></td></tr>"
End If
%>
<html><head><title>ICQ Sender</title>
<style TYPE="text/css">
<!--
.box {
BACKGROUND-COLOR: #676E73;
COLOR: #000000;
FONT-FAMILY: Tahoma;
FONT-SIZE: 10pt;
BORDER-BOTTOM: #000000 1px solid;
BORDER-LEFT: #000000 1px solid;
BORDER-RIGHT: #000000 1px solid;
BORDER-TOP: #000000 1px solid;}
-->
</style>
</head>
<body bgcolor="#676E73">
<form method="POST" action="ICQsend.asp?mode=send">
<div align="center">
<table border="0" width="25%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<p align="center"><font face="Verdana, Arial, Helvetica"size="4">Send en ICQ besked<br><br></font></td>
</tr>
<%=strSend%>
<tr>
<td width="100%"><font face="Verdana" size="2">Navn:<br>
<input type="text" name="FromName" size="22" class="box"></font></td>
</tr>
<tr>
<td width="100%"><font face="Verdana" size="2">Email:<br>
<input type="text" name="FromEmail" size="22" class="box"></font></td>
</tr>
<tr>
<td width="100%"><font face="Verdana" size="2">ICQ NR:<br>
<input type="text" name="ICQnr" size="22" class="box"></font></td>
</tr>
<tr>
<td width="100%"><font face="Verdana" size="2">Besked:<br>
<textarea rows="5" name="Message" cols="35" class="box"></textarea></font></td>
</tr>
<tr>
<td width="100%"><font face="Verdana" size="2"><br>
<input type="submit" value=" Send ICQ " name="send" class="box"></font></td>
</tr>
</table>
</div>
</form>
</body>
</html>
og den køre på http://www.andersensdataservice.dk//beta/ICQsend.asp
Håber i kan hjælpe...
