debugging asp/javascript

katie456 · October 11th, 2003, 03:24 PM

I can't figure out why there is an internal error for this code below, i don't see the problem, do you?

<%@ LANGUAGE = JavaScript%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
   // Array to hold names of months
   // used for creating date in format day month year
   var month = new Array("Jan","Feb","Mar","Apr","May","Jun","Jul",
      "Aug","Sep","Oct","Nov","Dec");
   var nowDate = new Date();
   var nowDate = nowDate.getDate() + " " + month[nowDate.getMonth()] + " " +
      nowDate.getFullYear();
   var orderNo;

   // Connect to database
   var adoConnection = Server.CreateObject("ADODB.Connection");
   adoConnection.Open("DSN=conhcn");
   var adoRecordset;

   // Create SQL to insert new order into CustomerOrder table
   var mySQL = "INSERT INTO clientprojects " +
      "(email, description, datePosted )";
   mySQL = mySQL + " VALUES ('" + Request.Form("email") + "','";
   mySQL = mySQL + Request.Form("description") + "','";
   mySQL = mySQL + nowDate + "')";

   // Execute SQL to add new order
   adoConnection.Execute(mySQL);

   // Recordset not needed after this so close it and allow release of memory
   adoRecordset.Close();
   adoRecordset = null;

   // No more database access
   // so close connection and indicate memory no longer needed
   adoConnection.Close();
   adoConnection = null;

   Response.Write("<H2><CENTER>Your order was completed successfully" +
      "</CENTER></H2>");
%>
</BODY>
</HTML>

surendran · October 22nd, 2003, 04:42 AM

hello katie
Why you are using javascript? use vbscript this is very simple way. try it
if u want to use javascript i will help u.
check this method and do it.it will work.
first u create a page (name :global.asa ---- not asp use asa)
'''''''''''''''''''''global.asa code ''''''''''''''''''''''''''''''
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
        Application("Con_ConnectionString") = "DSN=conhcn;DBQ=c:\database\databasename.mdb;Drive rId=281;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;"
        Application("Con_ConnectionTimeout") = 15
        Application("Con_CommandTimeout") = 30
        Application("Con_CursorLocation") = 3
        Application("Con_RuntimeUserName") = ""
        Application("Con_RuntimePassword") = ""
End Sub
</SCRIPT>
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
nowDate=date()
    set cnn=Server.CreateObject("ADODB.Connection")
    cnn.Open Application("Con_ConnectionString")
sql="Insert into clientprojects (email, description, datePosted) values ('"& Request("email") &"','"& Request("description") &"','"& nowDate &"')"
cnn.Execute sql

%>

<H2><CENTER>Your order was completed successfully</CENTER></H2>
</BODY>
</HTML>

surendran