Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

mestre fyoda

conexão no bd

Por , em ASP Clássico

Recommended Posts

mestre fyoda    1

mestre fyoda
Postado

me ajudem , como faço para fazer uma conexão no bd nesse codigo .

 

 

ASP [/tr][tr]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

Dim Recordset1

Dim Recordset1_numRows

 

Set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = MM_giovani_STRING

Recordset1.Source = "SELECT * FROM usuarios"

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 1

Recordset1.Open()

 

Recordset1_numRows = 0

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index

 

Repeat1__numRows = -1

Repeat1__index = 0

Recordset1_numRows = Recordset1_numRows + Repeat1__numRows

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

 

<body>

<form action="executa.asp" method="post" name="form1">

<table width="47%" border="0" cellpadding="1" cellspacing="1" bgcolor="#666666">

<tr>

<td width="11%" height="20" bgcolor="#CCCCCC"><div align="center"><font color="#333333" size="2" face="Arial, Helvetica, sans-serif"></font></div></td>

<td width="29%" bgcolor="#CCCCCC"><div align="center"><font color="#333333" size="2" face="Arial, Helvetica, sans-serif"><strong>Login</strong></font></div></td>

<td width="55%" bgcolor="#CCCCCC"><div align="center"><font color="#333333" size="2" face="Arial, Helvetica, sans-serif"><strong>EMail</strong></font></div></td>

</tr>

<%

While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))

%>

<tr bgcolor="#FFFFFF">

<td width="11%" height="10" bgcolor="#E7E7E7"><div align="center">

<input name="del" type="checkbox" value="<%=(Recordset1.Fields.Item("id").Value)%>">

</div></td>

<td width="29%" height="10" bgcolor="#E7E7E7">

<font size="2" face="Arial, Helvetica, sans-serif"> <font color="#666666"><%=(Recordset1.Fields.Item("login").Value)%></font></font></td>

<td width="55%" height="10" bgcolor="#E7E7E7">

<font size="2" face="Arial, Helvetica, sans-serif"> <font color="#666666"><%=(Recordset1.Fields.Item("email").Value)%></font></font></td>

</tr>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

Recordset1.MoveNext()

Wend

%>

</table>

<br>

<input type="submit" value="Delete">

</form>

</body>

</html>

<%

Recordset1.Close()

Set Recordset1 = Nothing

%>

[/tr]

Compartilhar este post

Link para o post
Compartilhar em outros sites

angus    0

angus
Postado

Dim conexaoset conexao = server.createObject ("ADODB.Connection")conexao.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("banco de dados.mdb")......

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito