Classic ASP: VBScript to Javascript

Question

I've read through a few threads on here about Classic ASP and Javascript, but can not find anything that is totally helpful.

I'm trying to convert my working vb script into Javascript, but am running into problems.

Here is my code:

<%
//Declare variables
var formdate, jsia, jsga, yvcia, yvcga, query, myDSN, Connect, rs;

//Provider String and DB location
myDSN = "PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" & Server.Mappath("/MasterDB.accdb");
//myDSN = "PROVIDER=SQLOLEDB.1;SERVER=myServerAddress;DATABASE=myDataBase;UID=myUserName;PWD=myPassword";

//Collect data from form
formdate = Request.Form("date");
jsia = Request.Form("jsia");
jsga = Request.Form("jsga");
yvcia = Request.Form("yvcia");
yvcga = Request.Form("yvcga");

//SQL for Query
query = "SELECT * FROM ATTENDANCE;";

//Create and open connection to database
Connect = Server.CreateObject("ADODB.Connection");
Connect.Open myDSN;

//Create recordset
rs = Server.CreateObject("ADODB.recordset");

//Open recordset run query in database
rs.Open query, Connect, adOpenStatic, adLockOptimistic;

rs.AddNew
    rs("Attendance_Date") = formdate;
    rs("JS_Individuals") = jsia;
    rs("JS_Groups") = jsga;
    rs("YVC_Individuals") = yvcia;
    rs("YVC_Groups") = yvcga;
rs.Update;

//Display message
Response.Write("<h1>Your form has been received. Thank you.</h1>");

//Close recordset and database connection
rs.close;
Connect.close;
%>

Any tips or documentation I can read on this? I've checked w3schools but they only cover VB script for Classic ASP.

Thanks!

"I'm trying to convert my working vb script into Javascript" - Why?? — Tomalak
– Tomalak, Commented Jun 22, 2015 at 2:24
I've already written javascript to do form check on the client side, I wanted to add the same functionality to my serverside script. VBScript has limitations, such as not having Try Catch capabilities. — Diogenes
– Diogenes, Commented Jun 22, 2015 at 2:30
Okay, fair enough. However, questions like "I can't find documentation" and "please rewrite this program for me in a different language" are off-topic on this site. There is extensive documentation on JScript on the Microsoft pages. If you have a particular problem or question, you are welcome to ask it here. Otherwise this question, as it currently is, is out of scope for StackOverflow, sorry. — Tomalak
– Tomalak, Commented Jun 22, 2015 at 2:35
Oh, and last tip: VBScript does have error handling. And ASP does support running both VBScript and JScript on the same page. So maybe you'll be better off leaving your working VBS code alone and set up a <script runat="server" language="jscript"> section to host your user input checking functions. There is a caveat about running both languages on the same page, but it probably does not apply to your situation. — Tomalak
– Tomalak, Commented Jun 22, 2015 at 2:43
Note that the language that classic ASP pages run is officially called "JScript". Search results might improve by using the proper keyword. In any case, if your JS functions are written in a re-usable fashion then running the same .js file on the client and on the server should be relatively unproblematic. — Tomalak
– Tomalak, Commented Jun 22, 2015 at 2:49

Garisson · Accepted Answer · 2018-11-08 06:54:56Z

<%@ LANGUAGE=JavaScript%>

<%
//Declare variables
var formdate, jsia, jsga, yvcia, yvcga, query, myDSN, Connect, rs;

//Provider String and DB location
 myDSN = "PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" +
 Server.Mappath("/MasterDB.accdb");

//Collect data from form
formdate = Request.Form("date");
jsia = Request.Form("jsia");
jsga = Request.Form("jsga");
yvcia = Request.Form("yvcia");
yvcga = Request.Form("yvcga");

var adOpenStatic = 3;
var adLockOptimistic = 3;

//SQL for Query
query = "SELECT * FROM ATTENDANCE;";

//Create and open connection to database
Connect = Server.CreateObject("ADODB.Connection");
Connect.Open(myDSN);

//Create recordset
rs = Server.CreateObject("ADODB.recordset");

//Open recordset run query in database
rs.Open (query, Connect, adOpenStatic, adLockOptimistic);
var fields=Array("Attendance_Date","JS_Individuals","JS_Groups","YVC_Individuals", "YVC_Groups");
var values=Array(formdate,jsia,jsga,yvcia,yvcga);

rs.AddNew(fields,values);
rs.Update();

//Display message
Response.Write("<h1>Your form has been received. Thank you.</h1>");

//Close recordset and database connection
rs.close;
Connect.close;
%>

Collectives™ on Stack Overflow

Classic ASP: VBScript to Javascript

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related