Popup istedet for det andet.

Jeg har prøvet det her, men det virker ikke. Hvad gør jeg galt:

<script language=\"JavaScript\">
function sms()
{
sms = window.open(\"../sms\",\"SMS\",\"status=no,toolbar=no,location=no,menu=no,width=250,height=50\");
}
</script>
                    <div align=\"center\">
                      <table cellpadding=\"5\" cellspacing=\"0\" width=\"100%\">
                        <form method=\"get\" action=\"java script:sms()\" name=\"smsform\">
                        <tr>
                          <td width=\"100%\">
<%
gyldigt = 0

Function sendsms(mobil)
If Request.Querystring(\"til\") = \"\" Or Request.Querystring(\"fra\") = \"\" Or Request.Querystring(\"besked\") = \"\" Then
sendsms = \"Alle felter skal udfyldes!\"
Else

If Not IsNumeric(mobil) Then
gyldigt = 0
Else
If Left(mobil,4) < 0000 Or Len(mobil) < 8 Then
gyldigt = 0
Else
gyldigt = 1
End if
End if
If gyldigt = 1 Then
selskab = teledk
Else
gyldigt = 0
End if

If gyldigt = 1 Then
mobiltekst = \"Besked fra \"& Request.Querystring(\"fra\") &\". \"& Request.Querystring(\"besked\")
email = mobil & \"@sms.tdm.dk\"

Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"websmtp.brevkasserne.dk\"
JMail.Sender = \"sms@dream4.dk\"
If selskab <> \"@sms.tdm.dk\" Then
JMail.Body = mobiltekst
Else
JMail.Body = mobiltekst
End If
JMail.AddRecipient email
JMail.Execute
Set JMail = Nothing
End if
If gyldigt = 1 Then
sendsms = \"Beskeden er sendt!\"
Else
sendsms = \"Nummeret er ikke gyldigt!\"
End if
End if
End Function
%>
<% If Request.Querystring(\"mode\") <> \"send\" Then %>
                            <input type=\"hidden\" name=\"mode\" value=\"send\">
<% Else %>
                            <input type=\"hidden\" name=\"mode\" value=\"send\">
<% End If %>
<% If Request.Querystring(\"mode\") = \"\" Or Request.Querystring(\"mode\") = \"sendny\" Then %>
<% Else %>
                            <div align=\"center\">
<%= sendsms(Request.Querystring(\"til\")) %>
                            </div>
<% End If %>
                            <table cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
                              <tr>
                                <td width=\"50\">Til:</td>
                                <td width=\"140\" align=\"right\"><input class=\"boks\" type=\"text\" name=\"til\" size=\"20\"></td>
                              </tr>
                              <tr>
                                <td width=\"50\">Fra:</td>
                                <td width=\"140\" align=\"right\"><input class=\"boks\" type=\"text\" name=\"fra\" size=\"20\"></td>
                              </tr>
                              <tr>
                                <td width=\"50\">Besked:</td>
                                <td width=\"140\" align=\"right\"><input class=\"boks\" type=\"text\" name=\"besked\" size=\"20\" maxlength=\"160\"></td>
                              </tr>
                              <tr>
                                <td width=\"50\"></td>
                                <td width=\"140\" align=\"right\"><a href=\"java script:document.smsform.submit();\">Send</a></td>
                              </tr>
                              </form>
                            </table>

min sms-side ser således ud:

<%
gyldigt = 0

Function sendsms(mobil)
If Request.Querystring(\"til\") = \"\" Or Request.Querystring(\"fra\") = \"\" Or Request.Querystring(\"besked\") = \"\" Then
sendsms = \"Alle felter skal udfyldes!\"
Else

If Not IsNumeric(mobil) Then
gyldigt = 0
Else
If Left(mobil,4) < 0000 Or Len(mobil) < 8 Then
gyldigt = 0
Else
gyldigt = 1
End if
End if
If gyldigt = 1 Then
selskab = teledk
Else
gyldigt = 0
End if

If gyldigt = 1 Then
mobiltekst = \"Besked fra \"& Request.Querystring(\"fra\") &\". \"& Request.Querystring(\"besked\")
email = mobil & \"@sms.tdm.dk\"

Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"websmtp.brevkasserne.dk\"
JMail.Sender = \"sms@dream4.dk\"
If selskab <> \"@sms.tdm.dk\" Then
JMail.Body = mobiltekst
Else
JMail.Body = mobiltekst
End If
JMail.AddRecipient email
JMail.Execute
Set JMail = Nothing
End if
If gyldigt = 1 Then
sendsms = \"Beskeden er sendt!\"
Else
sendsms = \"Nummeret er ikke gyldigt!\"
End if
End if
End Function
%>
      <p><%= sendsms(Request.Querystring(\"til\")) %></p>
      <a href=\"java script:window.close();\">Luk vinduet</a>

Jeg lukker spørgsmålet.