ASP+ACCESS para ASP+SQL
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
Discussão (2)
Carregando comentários...