Avatar billede babyshark Nybegynder
23. september 2001 - 19:27 Der er 2 kommentarer og
1 løsning

Asp loader langsomt om overhovedet

Jeg har lagt en asp side op på min server www.bastiano.dk/test/ludus.asp og den loader ikke...det gjorde den igår da jeg testede og også efter jeg havde slettet de midlertidige internetfiler. Hvad sker der?
Avatar billede tofte Juniormester
23. september 2001 - 20:11 #1
der er to muligheder.
enten er det afviklingen af asp der er langsom, ellers er det fordi dit script indeholder et mindre heldig ellement, for eksempel en løkke som strækker sig mod det uendelige.

Hvis du lige lagde kildekoden til filen, så kunne man udelukke den sidste mulighed.
Avatar billede babyshark Nybegynder
23. september 2001 - 21:26 #2
<html>
<head>

<title>Ludus Data</title>
<style type=\"text/css\">
<!--
a:link      { color: #808080 }
a:visited    { color: #808080 }
a:hover      { color: #ff9900 }
-->
</style>
</head>
<body bgcolor=\"#ffffff\" topmargin=\"0\" leftmargin=\"0\" marginwidth=\"0\" marginheight=\"0\" text=\"#808080\" link=\"#333333\">
<basefont face=\"Verdana\" size=\"2\">
<table border=\"0\" width=\"100%\" cellpadding=\"0\" cellspacing=\"0\">
  <tr>
    <td valign=\"top\" nowrap bgcolor=\"#333333\">&nbsp;</td>
  </tr>
</table>
<table width=\"100%\" cellpadding=\"0\" cellspacing=\"0\" border=\"0\" bgcolor=\"#FFFFFF\">
  <tr>
    <td bgcolor=\"#333333\" align=\"left\" valign=\"middle\" nowrap colspan=\"4\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\" color=\"#FFFFFF\"><b>&nbsp;<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\" color=\"#CC3300\">*</font><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\" color=\"#FFFFFF\"><a style=\"color: #FFFFFF; text-decoration: none\" href=\"browse_items.asp\"></a></font><a href=\"default.asp\" style=\"color:#FFFFFF;text-decoration:none;\">Start</a>&nbsp;|</b>&nbsp;</font><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\" color=\"#FFFFFF\"><a style=\"color: #FFFFFF; text-decoration: none\" href=\"browse_items.asp\">Vis
      kategorier</a><a style=\"color: #FFFFFF; text-decoration: none\"> </a>|&nbsp;<a style=\"color: #FFFFFF; text-decoration: none\" href=\"view_list.asp\">Vis
      alle varer&nbsp; </a>|&nbsp;<a href=\"search_items.asp\" style=\"color:#FFFFFF;text-decoration:none;\">
      S&oslash;g </a><a style=\"color: #FFFFFF; text-decoration: none\"> </a>|&nbsp;<a style=\"color: #FFFFFF; text-decoration: none\" href=\"default.asp?action=checkout&#checkout#head\">Vis
      kurv</a><a href=\"default.asp?action=checkout&#checkout\">&nbsp;</a></font></b></td>
  </tr>

</table>
  <hr color=\"#CCCCCC\" size=\"1\" noshade>
 
<table border=\"0\" bgcolor=\"#FFFFFF\" cellpadding=\"0\" cellspacing=\"0\" width=\"625\">
  <tr>
    <td width=\"128\" valign=\"top\" align=\"center\">&nbsp;
    <td width=\"1\" bgcolor=\"#000000\"><img src=\"images/spacer.gif\" width=\"1\" height=\"1\" alt border=\"0\"></td>
    <td width=\"100%\">
      <%
Sub AddItemToCart(iItemID, iItemCount)
    If dictCart.Exists(iItemID) Then
        dictCart(iItemID) = dictCart(iItemID) + iItemCount
    Else
        dictCart.Add iItemID, iItemCount
    End If
End Sub

Sub RemoveItemFromCart(iItemID, iItemCount)
    If dictCart.Exists(iItemID) Then
        If dictCart(iItemID) <= iItemCount Then
            dictCart.Remove iItemID
        Else
            dictCart(iItemID) = dictCart(iItemID) - iItemCount
        End If
    Else
        Response.Write \"Der er ingen varer i din indkøbskurv.<BR><BR>\" & vbCrLf
    End If
End Sub

Sub ShowItemsInCart()
Dim Key
Dim aParameters \' as Variant (Array)
Dim sTotal, sShipping
   
    %>
      <div id=\"SourceCode\">
        <table border=0 cellpadding=2 cellspacing=0 width=\"600\">
          <tr align=\"center\">
            <td width=\"48\" align=\"left\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">&nbsp;Vare</font></td>
            <td width=\"153\" align=\"left\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Beskrivelse</font></td>
            <td width=\"36\" align=\"left\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\">&nbsp;Antal</font></td>
            <td width=\"185\" align=\"left\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\">&nbsp;Ændre
              antal varer</font></td>
            <td width=\"58\" align=\"left\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\">&nbsp;Pris</font></td>
            <td width=\"96\" align=\"left\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">&nbsp;&nbsp;I
              alt</font></td>
          </tr>
          <%
    sTotal = 0
    For Each Key in dictCart
        aParameters = GetItemParameters(Key)
        %>
          <tr>
            <td align=\"left\" width=\"48\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">&nbsp;<%= Key %></font></td>
            <td align=\"left\" width=\"153\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><%= aParameters(1) %><br>
              </font> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
              </font></td>
            <td align=\"left\" width=\"36\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\">&nbsp;<%= dictCart(Key) %></font></td>
            <td align=\"left\" width=\"185\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\">&nbsp;<a href=\"default.asp?action=del&item=<%= Key %>&count=1\">Fjern
              1</a>&nbsp;<a href=\"default.asp?action=del&item=<%= Key %>&count=<%= dictCart(Key) %>\">Fjern
              alle</a><br>
              &nbsp;<a href=\"default.asp?action=add&item=<%= Key %>&count=1\">Tilføj
              1</a></font></td>
            <td align=\"left\" width=\"58\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\">&nbsp;Kr.<%= aParameters(2) %></font></td>
            <td align=\"left\" width=\"96\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">&nbsp;&nbsp;Kr.<%= FormatNumber(dictCart(Key) * CSng(aParameters(2)),2) %></font></td>
          </tr>
          <%
        sTotal = sTotal + (dictCart(Key) * CSng(aParameters(2)))
    Next
   
    \'Beregn fragt
    If sTotal <> 0 Then
        sShipping = 50.0
    Else
        sShipping = 0
    End If
    sTotal = sTotal + sShipping
    %>
          <tr>
            <td colspan=5 align=\"Right\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b>Forsendelse:</b></font></td>
            <td align=\"left\" width=\"96\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">&nbsp;&nbsp;Kr.<%= FormatNumber(sShipping,2) %></font></td>
          </tr>
          <tr>
            <td colspan=5 align=\"Right\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b>I
              alt:</b></font></td>
            <td align=\"left\" width=\"96\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">&nbsp;&nbsp;Kr.<%= FormatNumber(sTotal,2) %></font></td>
          </tr>
        </table>
      </div>
      <%
End Sub



\'*******************************************************************
\' mail
\'*******************************************************************
Private sub SendMailToAdmin()

    on error resume next

    strMailBody = strMailBody & \"<html><body bgcolor=\'#FFFFED\'>\"
    strMailBody = strMailBody & \"<h2><font color=\'#999999\'>Bestilling</font></h2>\"
    strMailBody = strMailBody & \"<p><font color=\'#999999\'><pre>\"

    strMailBody = strMailBody & \"  <b>Navn:</b>                  \" & Request.Form (\"fldName\") & \"<br>\"
    strMailBody = strMailBody & \"  <b>Evt. firmanavn:</b>        \" & Request.Form (\"fldCompanyName\") & chr(10)
    strMailBody = strMailBody & \"  <b>E-mail Adresse:</b>        \" & Request.Form (\"fldEmail\") & chr(10)
    strMailBody = strMailBody & \"  <b>Adresse:</b>                \" & Request.Form (\"fldURL\") & chr(10)
    strMailBody = strMailBody & \"  <b>Postnr./By:</b>            \" & Request.Form (\"fldAreaCode\") & \" \" & Request.Form (\"fldPhone\") & chr(10)
    strMailBody = strMailBody & \"  <b>Tlf.:</b>                  \" & Request.Form (\"fldFax\") & chr(10)
    strMailBody = strMailBody & Request.Form (\"bestillingForm\")\'ShowItemsInCart
    strMailBody = strMailBody & \"</pre>\" & chr(10)
    strMailBody = strMailBody & \"</font></p>\"
    strMailBody = strMailBody & \"</body></html>\"
   
    Set objMail = server.CreateObject(\"JMail.SMTPMail\")
    objMail.ContentType = \"text/html\"
   
   
    \' ## MAILPROG OPSÆTNING
    objMail.ServerAddress = \"www.ludu.dk\"
    objMail.Sender = \"post@ludu.dk\"
    objMail.ReplyTo = \"post@ludu.dk\"
    objMail.Sendername = \"Varebestilling\"
    objMail.subject = \"Bestilling\"
   
    \' ## MODTAGER PÅ EMALEN
    objMail.AddRecipient(\"post@ludu.dk\")
   
    objMail.body = strMailBody
   
    objMail.Priority = 1
   
    \' ## SENDER
    objMail.Execute
   
    Set objMail = nothing
   
    If err.Number < 0 Then

        Response.Write \"<b>Bestilling blev ikke sendt</b>\"
   
    Else
   
        Response.Write \"<b>Vi har modtaget din bestilling</b>\"

    End If


ShowItemsInCart

%>
      <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b>&nbsp;Adresse
      oplysninger</b></font><br>
      <hr size=\"1\">
      <table width=\"600\" border=\"0\" cellspacing=\"0\" cellpadding=\"4\">
        <tr>
          <td width=\"584\" align=\"left\" valign=\"top\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Navn</font></b>
            <br>
            <!--webbot bot=\"Validation\" S-Display-Name=\"Navn\" B-Value-Required=\"TRUE\"
      I-Minimum-Length=\"2\" I-Maximum-Length=\"100\" -->
            <% Response.Write Request.Form (\"fldName\") %>
          </td>
        </tr>
        <tr>
          <td width=\"584\" align=\"left\" valign=\"top\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Evt.
            firmanavn</font></b> <br>
            <% Response.Write Request.Form (\"fldCompanyName\") %>
          </td>
        </tr>
        <tr>
          <td width=\"584\" align=\"left\" valign=\"top\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">E-mail
            Adresse</font></b> <br>
            <!--webbot bot=\"Validation\" S-Display-Name=\"Email\" B-Value-Required=\"TRUE\"
      I-Minimum-Length=\"4\" I-Maximum-Length=\"100\" -->
            <% Response.Write Request.Form (\"fldEmail\") %>
          </td>
        </tr>
        <tr>
          <td width=\"584\" align=\"left\" valign=\"top\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Adresse</font></b>
            <br>
            <!--webbot bot=\"Validation\" S-Display-Name=\"Adresse\"
      B-Value-Required=\"TRUE\" I-Minimum-Length=\"20\" I-Maximum-Length=\"100\" -->
            <% Response.Write Request.Form (\"fldURL\") %>
          </td>
        </tr>
        <tr align=\"left\" valign=\"top\">
          <td width=\"584\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Postnr./By</font></b>
            <br>
            <!--webbot bot=\"Validation\" S-Display-Name=\"Postnr\" S-Data-Type=\"Integer\"
      S-Number-Separators=\"x\" B-Value-Required=\"TRUE\" I-Minimum-Length=\"4\"
      I-Maximum-Length=\"4\" -->
            <% Response.Write Request.Form (\"fldAreaCode\") %>
            <!--webbot bot=\"Validation\" S-Display-Name=\"By\" B-Value-Required=\"TRUE\"
      I-Minimum-Length=\"1\" I-Maximum-Length=\"50\" -->
            <% Response.Write Request.Form (\"fldPhone\") %>
          </td>
        </tr>
        <tr align=\"left\" valign=\"top\">
          <td width=\"584\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Tlf.</font></b>
            <br>
            <% Response.Write Request.Form (\"fldFax\") %>
          </td>
        </tr>
      </table>
      <%

End Sub
%>
      <table width=\"600\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
        <tr align=\"left\" valign=\"bottom\">
          <td>&nbsp;</td>
        </tr>
      </table>
      <table width=\"600\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
        <tr>
          <td width=\"600\" colspan=\"2\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">&nbsp;</font></td>
        </tr>
        <tr>
          <td width=\"600\" align=\"left\" valign=\"top\" colspan=\"2\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
            </font><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><br>
            <%
    \'Åben databasen     
        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Set Rs = Server.CreateObject(\"ADODB.Recordset\")
        \'Modify and use this connection if your database is in your database directory
        \'Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\\your database directory\\items.mdb\"
        Conn.Open \"DBQ=\" & Server.Mappath(\"items.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)};\"


SQL = \"SELECT Name, Price, ImageURL FROM Items\"
   
rs.Open SQL, Conn
rs.MoveFirst


        Function GetItemParameters(iItemID)
        \'Open database
        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Set Rs = Server.CreateObject(\"ADODB.Recordset\")
        \'Modify and use this connection if your database is in your database directory
        \'Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\\your database directory\\items.mdb\"
        Conn.Open \"DBQ=\" & Server.Mappath(\"items.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)};\"


SQL = \"SELECT* FROM Items WHERE ProductNum like \'%\" & iItemID & \"%\'\"
rs.Open SQL, Conn
rs.MoveFirst




       

Dim aParameters
aParameters = Array(rs(\"ImageURL\"), rs(\"Name\"), rs(\"Price\"))
\' Return array containing product info.
GetItemParameters = aParameters
End Function

%>
            <%
Dim dictCart \' as dictionary
Dim sAction \' as string
Dim iItemID \' as integer
Dim iItemCount \' as integer

If IsObject(Session(\"cart\")) Then
    Set dictCart = Session(\"cart\")
Else

    Set dictCart = Server.CreateObject(\"Scripting.Dictionary\")
End If

sAction = CStr(Request.QueryString(\"action\"))
iItemID = CStr(Request.QueryString(\"item\"))
iItemCount = CStr(Request.QueryString(\"count\"))
%>
            <table border=0 cellspacing=0 cellpadding=0>
              <tr>
                <td>
                  <%

Select Case sAction
    Case \"add\"
        AddItemToCart iItemID, iItemCount
        ShowItemsInCart
        %>
                </td>
              </tr>
              <tr>
                <td align=\"right\"> <a href=\"default.asp?action=checkout&#checkout\">
                  <img border=\"0\" src=\"images/koeb.jpg\" width=\"34\" height=\"20\" alt=\"Køb\"></a><br>
                  <%
    Case \"del\"
        RemoveItemFromCart iItemID, iItemCount
        ShowItemsInCart
        %>
                </td>
              </tr>
              <tr>
                <td align=\"right\"> <a href=\"default.asp?action=checkout&#checkout\">
                  <img border=\"0\" src=\"images/koeb.jpg\" width=\"34\" height=\"20\" alt=\"Køb\"></a><br>
                  <%
    Case \"viewcart\"
        ShowItemsInCart
        %>
                </td>
              </tr>
              <tr>
                <td align=\"right\"> <a href=\"default.asp?action=checkout&#checkout\">
                  <img border=\"0\" src=\"images/koeb.jpg\" alt=\"Køb\" width=\"34\" height=\"20\"></a><br>
                  <%
case \"checkout\"
ShowItemsInCart
%>
                  <br>
                  <br>
                  <a name=\"checkout\"></a>
                  <!--webbot BOT=\"GeneratedScript\" PREVIEW=\" \" startspan -->
                  <script language=\"JavaScript\"><!--
function FrontPage_Form1_Validator(theForm)
{

  if (theForm.fldName.value == \"\")
  {
    alert(\"Skrviv venligst dit \\\"Navn\\\" field.\");
    theForm.fldName.focus();
    return (false);
  }

  if (theForm.fldName.value.length < 2)
  {
    alert(\"Skriv venligst mindst 2 tegn i feltet \\\"Navn\\\" field.\");
    theForm.fldName.focus();
    return (false);
  }

  if (theForm.fldName.value.length > 100)
  {
    alert(\"Der er kun plads til 100 tegn i feltet \\\"Navn\\\" field.\");
    theForm.fldName.focus();
    return (false);
  }

  if (theForm.fldEmail.value == \"\")
  {
    alert(\"Skriv venligst din \\\"Email\\\" field.\");
    theForm.fldEmail.focus();
    return (false);
  }

  if (theForm.fldEmail.value.length < 4)
  {
    alert(\"Skriv venligst mindst 4 tegn i feltet \\\"Email\\\" field.\");
    theForm.fldEmail.focus();
    return (false);
  }

  if (theForm.fldEmail.value.length > 100)
  {
    alert(\"Der er kun plads til 100 tegn i feltet \\\"Email\\\" field.\");
    theForm.fldEmail.focus();
    return (false);
  }

  if (theForm.fldURL.value == \"\")
  {
    alert(\"Skriv venligst din \\\"Adresse\\\" field.\");
    theForm.fldURL.focus();
    return (false);
  }

  if (theForm.fldURL.value.length < 5)
  {
    alert(\"Skriv venligst mindst 5 tegn i feltet \\\"Adresse\\\" field.\");
    theForm.fldURL.focus();
    return (false);
  }

  if (theForm.fldURL.value.length > 100)
  {
    alert(\"Der er ikke plads til mere end 100 tegn i feltet \\\"Adresse\\\" field.\");
    theForm.fldURL.focus();
    return (false);
  }

  if (theForm.fldAreaCode.value == \"\")
  {
    alert(\"Skriv venligst dit \\\"Postnr\\\" field.\");
    theForm.fldAreaCode.focus();
    return (false);
  }

  if (theForm.fldAreaCode.value.length < 4)
  {
    alert(\"Skriv kun 4 tegn i feltet \\\"Postnr\\\" field.\");
    theForm.fldAreaCode.focus();
    return (false);
  }

  if (theForm.fldAreaCode.value.length > 4)
  {
    alert(\"Der er kun plads til 4 tegn i feltet \\\"Postnr\\\" field.\");
    theForm.fldAreaCode.focus();
    return (false);
  }

  var checkOK = \"0123456789-\";
  var checkStr = theForm.fldAreaCode.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = \"\";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    allNum += ch;
  }
  if (!allValid)
  {
    alert(\"Skriv venligst kun tal i feltet \\\"Postnr\\\" field.\");
    theForm.fldAreaCode.focus();
    return (false);
  }

  if (theForm.fldPhone.value == \"\")
  {
    alert(\"Skriv venligst \\\"By\\\" field.\");
    theForm.fldPhone.focus();
    return (false);
  }

  if (theForm.fldPhone.value.length < 1)
  {
    alert(\"Skriv mindst 1 tegn i feltet \\\"By\\\" field.\");
    theForm.fldPhone.focus();
    return (false);
  }

  if (theForm.fldPhone.value.length > 50)
  {
    alert(\"Der er kun plads til 50 tegn i feltet \\\"By\\\" field.\");
    theForm.fldPhone.focus();
    return (false);
  }
  return (true);
}
//--></script>
                  <!--webbot BOT=\"GeneratedScript\" endspan -->
                  <form action=\"default.asp?action=send\" method=\"post\" name=\"FrontPage_Form1\" onSubmit=\"return FrontPage_Form1_Validator(this)\">
                    <input type=\"Hidden\" name=\"bestillingForm\" value=\"\">
                    <script>
document.FrontPage_Form1.bestillingForm.value = document.getElementById(\"SourceCode\").innerHTML;
</script>
                    <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b>&nbsp;Skriv
                    venligst dine adresse oplysninger</b></font><br>
                    <hr size=\"1\">
                    <table width=\"600\" border=\"0\" cellspacing=\"0\" cellpadding=\"4\">
                      <tr>
                        <td width=\"584\" align=\"left\" valign=\"top\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Navn</font></b>
                          <br>
                          <!--webbot bot=\"Validation\" S-Display-Name=\"Navn\" B-Value-Required=\"TRUE\"
      I-Minimum-Length=\"2\" I-Maximum-Length=\"100\" -->
                          <input type=\"text\" name=\"fldName\" size=\"40\" maxlength=\"100\">
                        </td>
                      </tr>
                      <tr>
                        <td width=\"584\" align=\"left\" valign=\"top\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Evt.
                          firmanavn</font></b> <br>
                          <input type=\"text\" name=\"fldCompanyName\" size=\"40\">
                        </td>
                      </tr>
                      <tr>
                        <td width=\"584\" align=\"left\" valign=\"top\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">E-mail
                          Adresse</font></b> <br>
                          <!--webbot bot=\"Validation\" S-Display-Name=\"Email\" B-Value-Required=\"TRUE\"
      I-Minimum-Length=\"4\" I-Maximum-Length=\"100\" -->
                          <input type=\"text\" name=\"fldEmail\" size=\"40\" maxlength=\"100\">
                        </td>
                      </tr>
                      <tr>
                        <td width=\"584\" align=\"left\" valign=\"top\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Adresse</font></b>
                          <br>
                          <!--webbot bot=\"Validation\" S-Display-Name=\"Adresse\"
      B-Value-Required=\"TRUE\" I-Minimum-Length=\"5\" I-Maximum-Length=\"100\" -->
                          <input type=\"text\" name=\"fldURL\" size=\"40\" maxlength=\"100\">
                        </td>
                      </tr>
                      <tr align=\"left\" valign=\"top\">
                        <td width=\"584\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Postnr./By</font></b>
                          <br>
                          <!--webbot bot=\"Validation\" S-Display-Name=\"Postnr\" S-Data-Type=\"Integer\"
      S-Number-Separators=\"x\" B-Value-Required=\"TRUE\" I-Minimum-Length=\"4\"
      I-Maximum-Length=\"4\" -->
                          <input type=\"text\" name=\"fldAreaCode\" size=\"4\" maxlength=\"4\">
                          <!--webbot bot=\"Validation\" S-Display-Name=\"By\" B-Value-Required=\"TRUE\"
      I-Minimum-Length=\"1\" I-Maximum-Length=\"50\" -->
                          <input type=\"text\" name=\"fldPhone\" size=\"34\" maxlength=\"50\">
                        </td>
                      </tr>
                      <tr align=\"left\" valign=\"top\">
                        <td width=\"584\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Tlf.</font></b>
                          <br>
                          <input type=\"text\" name=\"fldFax\" size=\"11\">
                        </td>
                      </tr>
                      <tr align=\"left\" valign=\"top\">
                        <td width=\"584\">
                          <p><br>
                            <input type=\"reset\" name=\"Clear\" value=\"Slet\">
                            <input type=\"submit\" name=\"Submit\" value=\"Køb\">
                          </p>
                        </td>
                      </tr>
                    </table>
                  </form>
                  <%

case \"send\"
SendMailToAdmin

Case Else \' Shop
%>
                </td>
              </tr>
              <tr>
                <td align=\"right\"> </td>
              </tr>
            </table>
            </font> </td>
        </tr>
      </table>
      <%
End Select

Set Session(\"cart\") = dictCart

%>
    </td>
  </tr>
  <tr>
    <td height=\"39\" valign=\"top\" align=\"center\" width=\"14%\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"></font></td>
    <td width=\"400\" bgcolor=\"#FFFFFF\">
      <div align=\"center\"></div>
    </td>
  </tr>
</table>
        </body>
</html>
Avatar billede babyshark Nybegynder
11. november 2001 - 11:36 #3
lige meget
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester