Guest_imported
New member
- Jan 1, 1970
- 0
Hi, may i check with you all that is the following code is correct!
And i have an enquiry. If i want to UPDATE 2 datas at the same time, how is the UPDATE statement going to be like.
<%@ Language=VBScript %>
<%Option Explicit%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY><!--#include file="adovbs.inc"-->
<%
Dim DataConn ' ADO connection object
Dim sql_update, ConnString, objRs
Dim myName, myUserID, myPwd, myDept, myYr, myEmail, SQL
myName = request("text1"
myUserID = request("text2"
myPwd = request("password1"
myDept = request("select1"
myYr = request("radio1"
myEmail= request("text3"
Set DataConn = Server.CreateObject("ADODB.Connection"
ConnString="driver={sql server};server=Omega; database=update;DSN=localserver;PWD=;UID=sa;"
DataConn.Open ConnString
Set objRs=server.CreateObject ("ADODB.Recordset"
sqlstr=UPDATE TABLE "UP_TABLE"
SET ("NameID", "UserID", "password", "yearinfo" ,"email" = ("' & myNameID & '" , "' & myUserID & '", "' & myPwd & '", "' & myYr & '", "' & myEmail & '"
WHERE department="'myDept '"
DataConn.Execute (sqlstr)
objRs.Open sqlstr,DataConn
Any help will be appreciated! LOL
And i have an enquiry. If i want to UPDATE 2 datas at the same time, how is the UPDATE statement going to be like.
<%@ Language=VBScript %>
<%Option Explicit%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY><!--#include file="adovbs.inc"-->
<%
Dim DataConn ' ADO connection object
Dim sql_update, ConnString, objRs
Dim myName, myUserID, myPwd, myDept, myYr, myEmail, SQL
myName = request("text1"
myUserID = request("text2"
myPwd = request("password1"
myDept = request("select1"
myYr = request("radio1"
myEmail= request("text3"
Set DataConn = Server.CreateObject("ADODB.Connection"
ConnString="driver={sql server};server=Omega; database=update;DSN=localserver;PWD=;UID=sa;"
DataConn.Open ConnString
Set objRs=server.CreateObject ("ADODB.Recordset"
sqlstr=UPDATE TABLE "UP_TABLE"
SET ("NameID", "UserID", "password", "yearinfo" ,"email" = ("' & myNameID & '" , "' & myUserID & '", "' & myPwd & '", "' & myYr & '", "' & myEmail & '"
WHERE department="'myDept '"
DataConn.Execute (sqlstr)
objRs.Open sqlstr,DataConn
Any help will be appreciated! LOL