Søg
Avatar billede babyshark Nybegynder
20. september 2001 - 23:25 Der er 28 kommentarer og
2 løsninger

Hvad er der galt?

Min default giver mig følgende besked:
ADODB.Connection.1 error \'800a0bb9\'

The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another.

/test/search_items.asp, line 83

linje 83 ser således ud:

<%
        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)};\"

det er den der starter med Conn.Open \"DBQ=
Avatar billede dr.truti Nybegynder
20. september 2001 - 23:34 #1
Sjovt nok for jeg en Error lignende når jeg prøver at programmere med mdb filer i visual basic....
Avatar billede jiggypoof Nybegynder
20. september 2001 - 23:38 #2
Hvor åbner du

   
        Set Rs = Server.CreateObject(\"ADODB.Recordset\")



;)
Avatar billede babyshark Nybegynder
20. september 2001 - 23:41 #3
hvad mener du med hvor?..kan jeg ikke fjerne det der adodb..jeg har ingen server kørende, kun hos min domæne udbyder
Avatar billede jiggypoof Nybegynder
20. september 2001 - 23:43 #4
Set Rs = Server.CreateObject(\"ADODB.Recordset\")
Fjern det her....
Dog hvis du ikke har access inst. kan det heller ikke køre lokalt :)
Avatar billede babyshark Nybegynder
20. september 2001 - 23:53 #5
jeg har lagt alt op på serveren og det er her jeg tester det, der er intet på min localhost...hvad er det at adodb betyder? kan jeg ikke connecte på en anden måde,,,det er for irriterende det her..
Avatar billede jiggypoof Nybegynder
20. september 2001 - 23:54 #6
Slet denne linje
    Set Rs = Server.CreateObject(\"ADODB.Recordset\")
IK
Avatar billede babyshark Nybegynder
20. september 2001 - 23:59 #7
så siger den bare fejl i linjen ovenfor
Avatar billede tmceu Praktikant
21. september 2001 - 00:01 #8
Jeg er ikke sikker på om det betyder noget, men prøv at bytte om på Driver og DBQ i din connection, ligesom i det udkommenterede ovenover.

Ligger .mdb filen i samme folder som ASP scriptet ? Hvis ikke skal du inkludere den relative sti i server.mappath.

ADO og deraf ADODB er et high-level Microsoft programmerings interface mod databaser og det er den eneste måde du kan arbejde med databaser i ASP.
Avatar billede babyshark Nybegynder
21. september 2001 - 00:02 #9
Microsoft VBScript compilation error \'800a03ee\'

Expected \')\'

/test/browse_items.asp, line 39

Set Conn = Server.CreateObject(\"ADODB.Connection\"
-------------------------------------------------^
Avatar billede babyshark Nybegynder
21. september 2001 - 00:03 #10
hvis jeg sletter den linje får jeg det svar at denne linje er i udu:
Conn.Open \"DBQ=\" & Server.Mappath(\"items.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)};\"


glem det jeg skrev før, glemte en parentes:o)
Avatar billede tmceu Praktikant
21. september 2001 - 00:04 #11
jiggypoof >> du kan sagtens bruge en Access database (.mdb filen alene) via ADO uden at Access er installeret. Access er ikke en database server, men en filbaseret database.
Avatar billede jiggypoof Nybegynder
21. september 2001 - 00:07 #12
Jeg kunne ikke få min access2002 db til at køre på en iis4
Avatar billede tmceu Praktikant
21. september 2001 - 00:07 #13
Det jeg mente du skulle prøve, var at prøve med denne linie i stedet:

Conn.Open \";Driver={Microsoft Access Driver (*.mdb)};\" & \"DBQ=\" & Server.Mappath(\"items.mdb\")
Avatar billede babyshark Nybegynder
21. september 2001 - 00:08 #14
Sådan ser det ud nu...fejlen ligger i linjen med conn.open

Set Conn = Server.CreateObject(\"ADODB.Connection\")
       
Conn.Open \"DBQ=items.mdb\" & Server.Mappath(\"items.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)};\"
SQL = \"SELECT Category FROM Categories\"
Avatar billede jiggypoof Nybegynder
21. september 2001 - 00:09 #15
Fundet fejlen
Avatar billede tmceu Praktikant
21. september 2001 - 00:10 #16
jiggy >> Det skyldes med næsten 100%\'s sikkerhed den version af ODBC driveren/OLE-DB Provideren der var installeret på din server. Der er ændret internt format i Access mellem ver. 97 og 2000. Derfor vil det ikke virke hvis du havde en gl. version af disse drivere liggende.
Avatar billede babyshark Nybegynder
21. september 2001 - 00:10 #17
Så ser det sådan ud:

Microsoft VBScript runtime error \'800a01a8\'

Object required: \'Conn\'

/test/browse_items.asp, line 39


nu ser min fil således ud:
<%
        Conn.Open \";Driver={Microsoft Access Driver (*.mdb)};\" & \"DBQ=\" & Server.Mappath(\"items.mdb\")
        SQL = \"SELECT Category FROM Categories\"

   
rs.Open SQL, Conn
Avatar billede jiggypoof Nybegynder
21. september 2001 - 00:11 #18
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"items.mdb\")
Avatar billede tmceu Praktikant
21. september 2001 - 00:12 #19
jiggy har ret. Det gik helt galt med mit svar, da jeg kopierede og byttede rundt på din linie :-(
Avatar billede babyshark Nybegynder
21. september 2001 - 00:20 #20
den melder fejl i linjen:
    Conn.Open \"DRIVER={Microsoft Access Driver(*.mdb)};DBQ=\" & Server.MapPath(\"items.mdb\")
Avatar billede babyshark Nybegynder
21. september 2001 - 00:22 #21
nå...nu gider jeg ikke mere, jeg må vist opgive, ellers et fedt system jeg fik banket sammen, jeg kan ikke gennemskue fejlen. det har virket sporadisk, så jeg fatter intet.
Avatar billede tmceu Praktikant
21. september 2001 - 00:28 #22
Der er vel ingen grund til at give op allerede...

Hvilken ASP engine kører din udbyder ?

Hvad med at poste hele koden, så kan vi måske finde fejlen lidt hurtigere
Avatar billede babyshark Nybegynder
21. september 2001 - 00:58 #23
her er min default.asp:
<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>
            <%
         



        Function GetItemParameters(iItemID)
        \'Open database
        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=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 tmceu Praktikant
21. september 2001 - 01:12 #24
Du har 2 linier der begge åbner din connection, hvilket normalt vil give en fejl i stil med \"operation not allowed when object is open\"

Du skal kun have nedenstående linie:

Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=items.mdb\"

Hvis den giver en fejl efter dette, prøv at vise fejlmeddelelsen.
Avatar billede jiggypoof Nybegynder
21. september 2001 - 01:14 #25
Det er jo det jeg har sagt med hans conn alle 3 gange :)
Avatar billede tmceu Praktikant
21. september 2001 - 01:19 #26
Hvad kan jeg sige, udover ja :-)
Avatar billede babyshark Nybegynder
22. september 2001 - 22:27 #27
Nu ser det sgi ud til at virke...hvertfald på den ene server, den anden er 7 år om at åbne, tak mange tak...og jeg er altså ikke en ham..bare til en orientering:o)
Avatar billede babyshark Nybegynder
22. september 2001 - 23:20 #28
Når jeg så vil købe varer...se på www.bastiano.dk/test/default.asp

Jeg trykker køb og får denne besked:
Object required: \'Conn\'
sådan ser linjen ud i default.asp

Function GetItemParameters(iItemID)
        Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=items.mdb\"
Avatar billede babyshark Nybegynder
22. september 2001 - 23:27 #29
Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key \'Temporary (volatile) Jet DSN for process 0x474 Thread 0x10e8 DBC 0xd2e7e0c Jet\'.
Avatar billede babyshark Nybegynder
23. september 2001 - 01:59 #30
nå nu virker det...skrev alt med conn. ind igen.
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
Access kurser
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser
Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel Indlæg Oprettet Seneste aktivitet
Access udskrift mangler del af ramme om post. Af Uvanga i Access 4 24/10/202620:40 I dag 11:07
Fejl ved forsøg på åbning af Access mdb og mde Databaser Af Uvanga i Access 4 20/10/202614:59 22/10/202615:17
en word dotx fil stilles om til at blive gemt i skyen Af per2edb i Access 9 16/04/202620:11 21/04/202615:43
AI integreret i Access Af per2edb i Access 3 06/04/202610:42 06/04/202612:58
Autonummerering Af hlnviv i Access 2 06/03/202606:24 06/03/202607:48
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 12:28 slet gemte logind Af knuldefar1942 i Diverse
24/1020:40 Access udskrift mangler del af ramme om post. Af Uvanga i Access
24/1012:36 nulstille Samsung tablet T-580 Af fase i Tablet
23/1017:19 Kender I "Dropbox" ? Af Ikke-ekspert i Andet software
23/1016:28 Indsæt en kort video i Outlook 2024 Af ErikHg i E-mail programmer
White papers
Flere white papers »