This is a discussion on mdb to SQL SERVER within the ASP Development forums, part of the Programming & Scripting category; i have a connection: Code: <!--#include file="adovbs.inc"--> <% Response.Expires = -1500 Response.Buffer = true Server.ScriptTimeout = 100 Session.Timeout = 90 ...
| |||||||
|
#1
| ||||
| ||||
| i have a connection: Code: <!--#include file="adovbs.inc"-->
<%
Response.Expires = -1500
Response.Buffer = true
Server.ScriptTimeout = 100
Session.Timeout = 90
'Create an ADO connection object
set conn=Server.CreateObject("ADODB.Connection")
strSQLServerName = "XXXXXXX" 'Holds the name of the SQL Server (This is the name/location or IP address of the SQL Server)
strSQLDBUserName = "SA" 'Holds the user name (for SQL Server Authentication)
strSQLDBPassword = "test" 'Holds the password (for SQL Server Authentication)
strSQLDBName = "db2SQL"
'Initilise the DB Connection String
conn.open = "provider=SQLOLEDB; Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"
%>
![]() Code: <%
Dim submit1, oldpassword, newpassword, confirmpassword
submit1 = Server.HTMLEncode(Request.Form("submit1"))
oldpassword = Request.Form("oldpassword")
newpassword = Request.Form("newpassword")
confirmpassword = Request.Form("confirmpassword")
'If submit1 = "confirmpassword" Then
Dim sc, cn, rs, sql
sc = "driver={Microsoft Access Driver (*.mdb)};dbq=" _
& Server.MapPath("../DB/H2.mdb")
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.Open conn
sql = "SELECT [password] FROM [member] " _
& "WHERE [username] = '" & Request.Form("username") & "'"
rs.Open sql, cn, 1
If oldpassword = "" Or newpassword = "" Then
Response.Write "Make sure password is valid and fill all the fields please!"
ElseIf rs("password") <> oldpassword Then
Response.Write "Wrong password inserted!"
ElseIf newpassword <> confirmpassword Then
Response.Write "Confirm password and new password are not the same!"
ElseIf oldpassword = newpassword Then
Response.Write "Old password and new password are the same!"
Else
sql = "UPDATE mem SET password = '" & newpassword & "' WHERE " _
& "username = '" & Request.Form("username") & "'"
cn.Execute(sql)
Response.Write "Your Password has been changed!"
End If
rs.Close
Set rs = Nothing
cn.Close
conn.close
Set cn = Nothing
'End If
%>
|
|
#2
| ||||
| ||||
| Have you included the connection file or is it on the same page?? Also do you get any error? If yes what is it?
__________________ Get the Mantra! |
|
#3
| ||||
| ||||
| Quote:
the connection is to a sql server database. |
|
#4
| ||||
| ||||
| We'll need more info than that...what happens when you try to run the code. Also, you will have to change all the variables to either cn or conn. You can't have both.
__________________ jmurrayhead If you agree with me... click the icon! If my post solved your problem, click the button in the lower right-hand corner of the post.If you like it here...throw us a few bones to help support us. Join our Folding team: DeveloperBarn Folding |
| The Following User Says Thank You to jmurrayhead For This Useful Post: | ||
Centurion (July 9th, 2009) | ||
|
#5
| ||||
| ||||
| Quote:
Code: <%
Dim submit1, oldpassword, newpassword, confirmpassword
submit1 = Server.HTMLEncode(Request.Form("submit1"))
oldpassword = Request.Form("oldpassword")
newpassword = Request.Form("newpassword")
confirmpassword = Request.Form("confirmpassword")
'If submit1 = "confirmpassword" Then
Dim sc, conn, rs, sql
' sc = "driver={Microsoft Access Driver (*.mdb)};dbq=" _
' & Server.MapPath("../DB/H2.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.Open conn
sql = "SELECT [password] FROM [member] " _
& "WHERE [username] = '" & Request.Form("username") & "'"
rs.Open sql, conn, 1
If oldpassword = "" Or newpassword = "" Then
Response.Write "Make sure password is valid and fill all the fields please!"
ElseIf rs("password") <> oldpassword Then
Response.Write "Wrong password inserted!"
ElseIf newpassword <> confirmpassword Then
Response.Write "Confirm password and new password are not the same!"
ElseIf oldpassword = newpassword Then
Response.Write "Old password and new password are the same!"
Else
sql = "UPDATE mem SET password = '" & newpassword & "' WHERE " _
& "username = '" & Request.Form("username") & "'"
conn.Execute(sql)
Response.Write "Your Password has been changed!"
End If
rs.Close
Set rs = Nothing
conn.Close
conn.close
Set conn = Nothing
'End If
%>
Error Type: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified /changep3.asp, line 23 line 23 is : Code: conn.Open conn |
|
#6
| ||||
| ||||
| I would take a look here: ConnectionStrings.com - Forgot that connection string? Get it here! and try the various connection strings they have for SQL Server. It seems it is unable to find the data source (SQL Server). Be sure your strSQLServerName variable contains the right address/ IP of your SQL Server. |
|
#7
| ||||
| ||||
| maybe it's me, but i don't even see a connection string to SQL ... the only one i see, is the one to Access and that one is commented out.
__________________ Quote of the Month: Mistakes: It could be that the purpose of your life is only to serve as a warning to others. Questions to Ponder: Why do banks charge you a "non-sufficient funds fee" on money they already know you don't have? iif([sarcasm]=true,iif([you have to ask]=true,"didn't work","ha ha ha"),"not sarcasm") copyright © 2008 sbenj69 Sarchasm: The gulf between the author of sarcastic wit and the person who doesn't get it. |
|
#8
| ||||
| ||||
| Quote:
when i did .. cn = conn it crashed |
|
#9
| ||||
| ||||
| Well, the problem is probably with the connection string. Without seeing that, we can't really help much.
__________________ Wolffy ------------------------ Opinions expressed are my own and do not necessity reflect those of any sane person. Any code provided is intended to be an example and is provided AS IS. Rework for your specific environment may be required. Void where prohibited by law. Not valid in California. Your mileage may vary. |
|
#10
| ||||
| ||||
| Quote:
|
![]() |
|
| Bookmarks |
| Thread Tools | |
| Display Modes | |
| |
| ||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| SQL Server Integration Services | guddu | Microsoft SQL Server | 1 | April 24th, 2009 07:08 AM |
| SQL Server CREATE TABLE..LIKE | Wolffy | SQL Code Samples | 2 | March 12th, 2009 04:51 PM |
| SQL Server 2008 | stephenhy88 | Microsoft SQL Server | 7 | August 13th, 2008 01:55 AM |
| SQL Server Views | theChris | Microsoft SQL Server | 3 | March 23rd, 2008 07:35 PM |