Boks kommer frem istedet for...

Glem forresten overskriften til spørgmålet. Ved godt det ikke har noget med spørgsmålet at gøre.

Hvad er gyldigt = 1 og gyldigt = 0 ?

Jeg tror problemet ligger:

<form method=\"POST\" action=\"default.asp\" name=\"smsform\">
<% If Request.Form(\"mode\") <> \"send\" Then %>
<input type=\"hidden\" name=\"mode\" value=\"send\">
<% Else %>
<input type=\"hidden\" name=\"mode\" value=\"sendny\">
<% End If %>
<% If Request.Form(\"mode\") = \"\" Or Request.Form(\"mode\") = \"sendny\" Then %>
<% Else %>
<div align=\"center\"><%= sendsms(Request.Form(\"til\")) %></div>
<% End If %>

TIP: Når du skal fejlfinde et script som bruger forms, er det en god ide at benytte Resquest.Querystring i stedet for Resquest.Form. Så ved du hvad der bliver sendt af sted fra formen.


Se om det her hjælper:

<%
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
fra = \"Besked fra \"& Request.Querystring(\"fra\")
besked = Request.Querystring(\"besked\")
mobiltekst = navn &\". \"& 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.Subject = fra
JMail.Body = besked
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 = \"Telefonnummeret er ikke gyldigt!\"
End if
End if
End Function
%>

                          <form method=\"get\" action=\"me.asp\" name=\"smsform\"> <% 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\"><input type=\"submit\" value=\"Send\"> Send</td>
                              </tr>
                            </table>
                          </form>

Prøv den her i stedet.

<%
dim gyldigt

Function sendsms(mobil)

gyldigt = 1

If Request.Form(\"til\") = \"\" Or Request.Form(\"fra\") = \"\" Or Request.Form(\"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
        fra = \"Besked fra \"& Request.Form(\"fra\")
        besked = Request.Form(\"besked\")
        mobiltekst = navn &\". \"& Request.Form(\"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.Subject = fra
            JMail.Body = besked
        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 = \"Telefonnummeret er ikke gyldigt!\"
    End if
End if
End Function
%>

                          <form method=\"POST\" action=\"default.asp\" name=\"smsform\">
<% If Request.Form(\"mode\") <> \"send\" Then %>
                          <input type=\"hidden\" name=\"mode\" value=\"send\">
<% Else %>
                          <input type=\"hidden\" name=\"mode\" value=\"sendny\">
<% End If %>

<% If Request.Form(\"mode\") <> \"\" Or Request.Form(\"mode\") <> \"sendny\" Then %>
                            <div align=\"center\"><%= sendsms(Request.Form(\"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\"><input type=\"submit\" value=\"Send\"> Send</td>
                              </tr>
                            </table>
                          </form>

--> somaliomar, dit forslag virker perfekt. Lige inden jeg giver dig pointene er der så nogen der ved hvordan man istedet for en submit-knap kan bruge noget helt almindeligt tekst til at sende med.

Jeg har forresten også de her spørgsmål som jeg simpelthen ikke kan lure, hvis der var nogen der skulle være interesserede i at kigge lidt på dem.

http://www.eksperten.dk/spm/129564

http://www.eksperten.dk/spm/129579

<form action=\"login.asp\" method=\"post\" name=\"Login\">
  <input type=\"text\" name=\"T1\" size=\"20\">&nbsp;&nbsp;
  <a href=\"java script:document.Login.submit();\"><b>Send</b></a>
</form>

Det virker ikke rigtig, den siger fejl på siden...

Har du husket at give din form et name-egenskab? Eks:
<form action=\"login.asp\" method=\"post\" name=\"[NavnPåForme]\">
...

Når du har det, kan du submitte ved at skrive:

<a href=\"java script:document.[NamePåFormen].submit();\">Send</a>

Hvis det ikke virker, kom med koden. Jeg skal se hvad jeg kan gøre.

--> somaliomar, det virker nu. Tak skal du have for alle dine svar.

Selv tak!

/Omar