o_alpha33 Postado Abril 4, 2005 Denunciar Share Postado Abril 4, 2005 Ola pessoal, é o seguinte, copiei um codigo de FORUM aqui do site e não consigo fazer funcionar de jeito nenhum, não acha o BD... o script é assim :<!--#INCLUDE file="../config.inc" --><%' Some Global FunctionsFunction ChkString(string) if String = "" then string = " " string = replace(string, "'", "''") ChkString = stringEnd Function%><html><head><title>Add</title><style> a:link {color="#000080";text-decoration:underline} a:visited{color:"#000080";text-decoration:underline} a:hover {color:red;text-decoration:underline}</style></head><body bgcolor="#FFFFFF" text="#000080" link="#000080" topmargin="5"></body></html><%' Procedure to add A Category to the databaseSub add_Cat ' Has the form been filled in? If request.QueryString("do_it") = "true" then set my_conn= Server.CreateObject("ADODB.Connection") my_Conn.Open ConnString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot" StrSQl = "INSERT INTO category (cat_name) values ('" & ChkString(Request.Form("cat")) & "')" my_conn.Execute StrSql my_conn.close set my_conn = nothing Response.Write "<p align=""center""><strong><font face=""veranda, Arial, Helvetica"" size=4>Category Added</font></strong></p>" Elseo BD esta na pasta C:\Inetpub\wwwrooto que fazersocorro e obrigadofabio Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 aferlim Postado Abril 4, 2005 Denunciar Share Postado Abril 4, 2005 vi o script com pressa, não vi erro algum além de:my_Conn.Open ConnString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot"nessa linha você deve por o nome do seu vanco de dados ex:my_Conn.Open ConnString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\nomedoseubanco.mdb"Se continuar não funcionando, post aí o eero pra nós!!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 o_alpha33 Postado Abril 6, 2005 Autor Denunciar Share Postado Abril 6, 2005 Amigo valeu pela ajuda, mas continua um erro que é Informações técnicas (para a equipe de suporte)Tipo de erro:Erro de compilação do Microsoft VBScript (0x800A0409)Constante de seqüência não finalizada/admin/add.asp, line 33, column 66my_Conn.Open ConnString="DRIVER={Microsoft Access Driver (*.mdb)};-----------------------------------------------------------------^ Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 o_alpha33 Postado Abril 6, 2005 Autor Denunciar Share Postado Abril 6, 2005 Ola amigos, por acaso se eu te mandar o FORUM compactado você pode ver pra mim ?????obrigado Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 aferlim Postado Abril 6, 2005 Denunciar Share Postado Abril 6, 2005 manda ai! Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
o_alpha33
Ola pessoal, é o seguinte, copiei um codigo de FORUM aqui do site e não consigo fazer funcionar de jeito nenhum, não acha o BD... o script é assim :
<!--#INCLUDE file="../config.inc" -->
<%
' Some Global Functions
Function ChkString(string)
if String = "" then string = " "
string = replace(string, "'", "''")
ChkString = string
End Function
%>
<html>
<head>
<title>Add</title>
<style>
a:link {color="#000080";text-decoration:underline}
a:visited{color:"#000080";text-decoration:underline}
a:hover {color:red;text-decoration:underline}
</style>
</head>
<body bgcolor="#FFFFFF" text="#000080" link="#000080" topmargin="5">
</body>
</html>
<%
' Procedure to add A Category to the database
Sub add_Cat
' Has the form been filled in?
If request.QueryString("do_it") = "true" then
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot"
StrSQl = "INSERT INTO category (cat_name) values ('" & ChkString(Request.Form("cat")) & "')"
my_conn.Execute StrSql
my_conn.close
set my_conn = nothing
Response.Write "<p align=""center""><strong><font face=""veranda, Arial, Helvetica"" size=4>Category Added</font></strong></p>"
Else
o BD esta na pasta C:\Inetpub\wwwroot
o que fazer
socorro e obrigado
fabio
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.