Ir para conteúdo

POWERED BY:

Arquivado

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

carmolim

problema em uma pagina

Por , em ASP Clássico

Recommended Posts

carmolim    0

carmolim
Postado

dæ galera?/

 

eu sou super iniciante em ASP, e uso o DW MX...

 

comecei afuçar e deu nisso:

 

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

<!--#include file="../Connections/membros_tpf.asp" -->

<%

' *** Edit Operations: declare variables

 

Dim MM_editAction

Dim MM_abortEdit

Dim MM_editQuery

Dim MM_editCmd

 

Dim MM_editConnection

Dim MM_editTable

Dim MM_editRedirectUrl

Dim MM_editColumn

Dim MM_recordId

 

Dim MM_fieldsStr

Dim MM_columnsStr

Dim MM_fields

Dim MM_columns

Dim MM_typeArray

Dim MM_formVal

Dim MM_delim

Dim MM_altVal

Dim MM_emptyVal

Dim MM_i

 

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

If (Request.QueryString <> "") Then

 MM_editAction = MM_editAction & "?" & Request.QueryString

End If

 

' boolean to abort record edit

MM_abortEdit = false

 

' query string to execute

MM_editQuery = ""

%>

<%

' *** Insert Record: set variables

 

If (CStr(Request("MM_insert")) = "form1") Then

 

 MM_editConnection = MM_membros_tpf_STRING

 MM_editTable = "Emails"

 MM_editRedirectUrl = "/goto.htm"

 MM_fieldsStr  = "nome|value"

 MM_columnsStr = "Nome|',none,''"

 

 ' create the MM_fields and MM_columns arrays

 MM_fields = Split(MM_fieldsStr, "|")

 MM_columns = Split(MM_columnsStr, "|")

 

 ' set the form values

 For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

   MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))

 Next

 

 ' append the query string to the redirect URL

 If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then

   If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then

     MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

   Else

     MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

   End If

 End If

 

End If

%>

<%

' *** Insert Record: construct a sql insert statement and execute it

 

Dim MM_tableValues

Dim MM_dbValues

 

If (CStr(Request("MM_insert")) <> "") Then

 

 ' create the sql insert statement

 MM_tableValues = ""

 MM_dbValues = ""

 For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

   MM_formVal = MM_fields(MM_i+1)

   MM_typeArray = Split(MM_columns(MM_i+1),",")

   MM_delim = MM_typeArray(0)

   If (MM_delim = "none") Then MM_delim = ""

   MM_altVal = MM_typeArray(1)

   If (MM_altVal = "none") Then MM_altVal = ""

   MM_emptyVal = MM_typeArray(2)

   If (MM_emptyVal = "none") Then MM_emptyVal = ""

   If (MM_formVal = "") Then

     MM_formVal = MM_emptyVal

   Else

     If (MM_altVal <> "") Then

       MM_formVal = MM_altVal

     ElseIf (MM_delim = "'") Then  ' escape quotes

       MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"

     Else

       MM_formVal = MM_delim + MM_formVal + MM_delim

     End If

   End If

   If (MM_i <> LBound(MM_fields)) Then

     MM_tableValues = MM_tableValues & ","

     MM_dbValues = MM_dbValues & ","

   End If

   MM_tableValues = MM_tableValues & MM_columns(MM_i)

   MM_dbValues = MM_dbValues & MM_formVal

 Next

 MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

 

 If (Not MM_abortEdit) Then

   ' execute the insert

   Set MM_editCmd = Server.CreateObject("ADODB.Command")

   MM_editCmd.ActiveConnection = MM_editConnection

   MM_editCmd.CommandText = MM_editQuery

   MM_editCmd.Execute

   MM_editCmd.ActiveConnection.Close

 

   If (MM_editRedirectUrl <> "") Then

     Response.Redirect(MM_editRedirectUrl)

   End If

 End If

 

End If

%>

<%

Dim Recordset1

Dim Recordset1_numRows

 

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

linha 130 Recordset1.ActiveConnection = MM_membros_tpf_STRING

Recordset1.Source = "SELECT * FROM Emails"

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 1

Recordset1.Open()

 

Recordset1_numRows = 0

%>

<html>

<head>

<title>Untitled Document</title>

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

</head>

 

<body>

<form name="form1" method="POST" action="<%=MM_editAction%>">

 <input type="text" name="nome">

 <input type="hidden" name="MM_insert" value="form1">

 <input type="submit" name="Submit" value="Submit">

</form>

 

</body>

</html>

<%

Recordset1.Close()

Set Recordset1 = Nothing

%>

 

 

mas quando eu vou vizualizar no browser dah erro, Servidor Não encontrado,

e diz que tem um erro na linha 130, e eu naum sei oq esta acontecendo..

 

aparece exatamente isso:

 

Tipo de erro:

ADODB.Recordset (0x800A0BB9)

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/testes/Testes BD/teste1.asp, line 130

 

 

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)

 

Página:

GET /testes/Testes BD/teste1.asp

 

 

 

se você puder dar uma mao...

 

VALEW!!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

wallace20    0

wallace20
Postado

CARA, NÃO MANDA UM CÓDIGO TÃO LONGO.ESPECIFIQUE A LINHA (DIGITADA) E QUAL O TIPO DE ERRO QUE APARECE NO BROWSER.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Crie um topico seu sue nao ressuscite topicos

 

Ai voce poe o trecho de condigo e a mensagem de erro

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