Trabalhando com arquivos externos no asp
Bom dia pessoal, verifiquei vários exemplos de como trabalhar com funções esternas em asp clássico, pois preciso fazer uma conexão com o banco através de um arquivo externo...
so que nenhum deles funcionou estou enviando o codigo para voces analizarem o erro
conexao.asp
<%
dim conn
Sub AbreConn()
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open = "Driver=MySQL ODBC 5.1 Driver;DataBase=sgc;Server=localhost;Uid=root;PassWord=admin;"
End Sub
Sub FechaConn()
conn.Close()
Set conn = Nothing
End Sub
%>
default.asp
<!--#include file="conexao.asp"-->
<%
Call AbreConn()
Dim CmdSQL = server.CreateObject("adodb.recordset")
Dim estado
' Cria combo box com os estados.
CmdSQL.open = "Select par_uf from pares group by par_uf order by par_uf;" , conn
%>
<html>
<head>Teste de conexao</head>
<body><%
Call AbreConn()
Dim estado
' Cria combo box com os estados.
set CmdSQL = conn.execute("Select par_uf from pares group by par_uf order by par_uf;")
if CmdSQL.eof = 0 then
response.write("<form action=""default.asp"" method=""post"" name=""formEstado"" id=""formEstado"">")
response.write("<select size=""1"" name=""uf"" id=""uf"" onChange=""atualizaCombo(this.value);"">")
response.Write("<option selected value=""Todos"">todos</option>")
do until CmdSQL.EOF
response.Write("<option value=" & CmdSQL("par_uf") & ">" & CmdSQL("par_uf") & "</option>")
CmdSQL.MoveNext
Loop
response.write("</select>")
end if
response.write("</br>")
CmdSQL.close
Set CmdSQL = Nothing
call fechaconn()%>
</body>
grato
Discussão (3)
Carregando comentários...