Número de argumentos incorreto ou atribuição de propriedade inválida: 'conn.execute'
/cerberus2/teste2.asp, line 58
O Codigo e este.
<!--#include file="conf/conecta_banco.asp"-->
<html>
<body>
<form name="form1" method="post" action="default.asp">
<table width="100%" border="0" cellpadding="1">
<tr bgcolor="#00FF99">
<td colspan="2"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif">Cadastramento</font></div></td>
</tr>
<tr>
<td width="20%">Nome</td>
<td width="80%"><input name="textfield" type="text" size="50" maxlength="80"></td>
</tr>
<tr>
<td>Email</td>
<td><input name="textfield2" type="text" size="50" maxlength="100"></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="Enviar"> <input type="reset" name="Submit2" value="Limpar">
</td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>
<%
set rs2=conn.execute("select * from origem id ")
While not rs2.eof
Dim urlorigem , iporigem, serverorigem, navegador
urlorigem = Request.ServerVariables("HTTP_REFERER")
iporigem = Request.ServerVariables("REMOTE_ADDR")
serverorigem = Request.ServerVariables("SERVER_NAME")
navegador = Request.ServerVariables("HTTP_USER_AGENT")
If urlorigem = "" Then
urlorigem = "veio do Navegador " & navegador
conn.execute("INSERT INTO origem (origem, ip, server ) VALUES('" & urlorigem & "','" & iporigem & "' ,'" & serverorigem & "')")
End if
rs2.movenext()
wend
Set url = Nothing
Set objrs2 = Nothing
conn.execute.Close
Set conn.execute= Nothing
%>
Edição feita por: Renan L. Queiroz, 19/02/2010, 15:50.
