Member Avatar for ravindrakale

Hello everyone,

someone help me ? i have a problem with vb script i paste the coding here just chek it out where i am wrong raj.ActiveConnection = MM_ravi_STRING i got error here:( Thanks email me on ravindrakale007@gmail.com

<[EMAIL="%@LANGUAGE="]%@LANGUAGE="VBSCRIPT"%[/EMAIL]>
<!--#include file="Connections/ravi.asp" -->
<%
Dim raj
Dim raj_numRows

Set raj = Server.CreateObject("ADODB.Recordset")
raj.ActiveConnection = MM_ravi_STRING
raj.Source = "SELECT * FROM employee"
raj.CursorType = 0
raj.CursorLocation = 2
raj.LockType = 1
raj.Open()
raj_numRows = 0
%>
<script language="VBScript" type="text/VBScript">
set.cnn = Server.CreateObject("ADODB.Connection")
open.connection
cnn.open("Driver={MicrosoftAccessDriver(*.mdb)};DBQ=D:\trupti.mdb;Uid=sa;Pwd=sa;")
"Driver = {MicrosoftAccessDriver(*.mdb)};DBQ=D:\trupti.mdb;Uid=sa;Pwd=sa;"
open.recordset
set rs = server.CreateObject("ADODB.Recordset")
strSQL= "select * from employee"
rs.open strSQL,cnn,3,2
insert into employee('First_name','Last_name','Telephone','Email','Comments')
values("&txtfname.txt&","&txtlname.txt&","&txtteleno.number&","&txtEmail.memo&","&txtcomments.txt&")
if NOT rs.eof Then
while NOT rs.EOF
rs.movenext
wend
end if
</script>
<html>
<head>
<Body>
<FORM action="test.asp"FORM METHOD="post" name=test.asp Actionvar=add">

<p>First_name
<INPUT TYPE="text" NAME="First_name">
<BR>
Last_name
<INPUT TYPE="text" NAME="Last_name">
<BR>
Telephone
<INPUT TYPE="text" NAME="Telephone">
<BR>
Email
<INPUT TYPE="text" NAME="Email">
<BR>
Comment
<INPUT TYPE="text" NAME="Comment">
<BR>
<INPUT name="add" TYPE="submit" id="insert" VALUE="Insert">
</p>
</FORM>
</html>
</head>
</Body>
<%
raj.Close()
Set raj = Nothing
%>

  • 2 Contributors
  • 1 Reply
  • 74 Views
  • 3 Weeks Discussion Span
  • Latest Post Latest Post by Sitestepper
Member Avatar for Sitestepper

ActiveConnection should be assigned a Connection object, not a string ?

Set objConn = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject("ADODB.Recordset")
 
strConn = TheCorrectConnectionString
 
objConn.Open(strConn)
 
objCmd.ActiveConnection = objConn
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.