ASP+ACCESS para ASP+SQL

[®odrigo_$am 0]

Pessoal eu peguei este código na NET que usa ASP+ACCESS, só que eu estive dando uma olhada e meu servidor não aceita banco de dados ACCESS somente SQL, então eu pediria a vcs que me ajudassem a transcrever este script para SQL, pq eu não saco na da disso!!!

o código segue abaixo!

ASP

[*]<%@Language="VBScript"%>

 

[*]<%

 

[*]

 

[*] Option Explicit

 

[*]

 

[*] Dim oRS, oConn, strSQL

 

[*]

 

[*] Dim results

 

[*]

 

[*] Set oConn = Server.CreateObject("ADODB.Connection")

 

[*] Set oRS = Server.CreateObject("ADODB.Recordset")

 

[*]

 

[*] oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("reset.mdb")

 

[*]

 

[*] If UCase(Request("Serie")) = "ALL" Then

 

[*] strSQL = "SELECT * FROM reset"

 

[*] Else

 

[*] strSQL = "SELECT * FROM reset WHERE Serie LIKE '" & Request("Serie") & "'"

 

[*] End If

 

[*]

 

[*] oRS.Open strSQL, oConn, 2, 3

 

[*]

 

[*] If oRS.EOF Then

 

[*] Response.Write "success=False"

 

[*] Else

 

[*] Response.Write "success=True&results="

 

[*] Do While Not oRS.EOF

 

[*] results = results & oRS("Nome") & vbCr

 

[*] results = results & oRS ("Codigo") & vbCr

 

[*] results = results & oRS("Dias") & vbCrlf

 

[*] oRS.MoveNext

 

[*] Loop

 

[*] End If

 

[*]

 

[*] oRS.Close

 

[*] Set oRS = Nothing

 

[*] oConn.Close

 

[*] Set oConn = Nothing

 

[*]

 

[*] Response.Write Server.URLEncode(results)

 

[*]%>

 

Por favor quem puder me ajudar!!

Vlw

[rOcKLoCo 0]

normalmente troca-se somente a conexão com o banco de dados...

 

http://www.connectionstrings.com

 

pois os comandos básicos são padrões para os banco de dados...

[blac3r 0]

troque oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("reset.mdb")poroConn.Open "Provider=SQLOLEDB;Data Source="IP";DATABASE="banco";UID="login";pwd="senha