Ir para conteúdo

POWERED BY:

Arquivado

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

odnanreef

Que erro é esse??

Por , em ASP Clássico

Recommended Posts

odnanreef    0

odnanreef
Postado

Olá pessoal como arrumo esse erro,Erro de tempo de execução do microsoft VBScript Error 800a01a8objeto é obrigatório "nome da DSN"Por favor se alguém souber como arrumar, mande uma resposta bem didatica pois não manjo muito!!!Abraço a todos ;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

odnanreef    0

odnanreef
Postado

kd o codigo:?

Vou mandar enteiro pois não sei o que você vai precisar, você pode estranhar um pouco a página pois utilizo o ultradev:<%@LANGUAGE="VBSCRIPT"%> <!--#include file="Connections/primeira.asp" --><%Dim Recordset1__MMColParamRecordset1__MMColParam = "1"if Request.QueryString("selecao") <> "" then Recordset1__MMColParam = Split(Request.QueryString("selecao"),",")set Recordset1 = Server.CreateObject("ADODB.Recordset")' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters' create the list of parameters which should not be maintainedMM_removeList = "&index="If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""' add the URL parameters to the MM_keepURL stringFor Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End IfNext' add the Form variables to the MM_keepForm stringFor Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End IfNext' create the Form + URL string and remove the intial '&' from each of the stringsMM_keepBoth = MM_keepURL & MM_keepFormif (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)' a utility function used for adding additional parameters to these stringsFunction MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End IfEnd Function%><html><head><STYLE type="text/css"><!--BODY {scrollbar-face-color: #0095C6;scrollbar-highlight-color: #FFFFFF;scrollbar-3dlight-color: #EBEBEB;scrollbar-darkshadow-color: #FFFFFF;scrollbar-shadow-color: #EBEBEB;scrollbar-arrow-color: #FFFFFF;scrollbar-track-color: #FFFFFF;}a:link { text-decoration: none}a:visited { text-decoration: none}a:hover { font-weight: bolder}--></STYLE><title></title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><script language="JavaScript"><!--function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();}MM_reloadPage(true);// --></script></head><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" link="#003366" vlink="#003366" alink="#003366"><div id="Layer8" style="position:absolute; left:34px; top:287px; width:615px; height:48px; z-index:84"> <%For x = Lbound(Recordset1__MMColParam) to Ubound(Recordset1__MMColParam)SQL="SELECT * FROM tabela_de_cadastro WHERE codigo_do_cadastro = " & Replace(Recordset1__MMColParam(x), "'", "''") & ";"Recordset1.ActiveConnection = MM_primeira_STRINGRecordset1.Source = SQLRecordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 3Recordset1.Open()Recordset1_numRows = 0%> <font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#0066CC"><%=Recordset1("nome_da_empresa")%>|</font><%RecordSet1.closeNext%></div><p> </p><p> </p><p> </p><p> </p><p> </p><ul> <blockquote> <p> </p> <p> </p> <p><br> <br> <br> <br> </p> <p> </p> <p><br> <br> <br> <br> <br> <br> <br> </p> </blockquote></ul><p><br> <br> <br></p></body></html><%Set Recordset1 = NothingMM_primeira_STRING.closeSet MM_primeira_STRING = Nothing%> ;)

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