Foros del Web » Programando para Internet » PHP »

servidor y paginas asp y base de datos

Estas en el tema de servidor y paginas asp y base de datos en el foro de PHP en Foros del Web. hola quisiera ver si alguien me puede ayudar, active mi servidor web iis creee una web con un foro super facil solo estoy apendiendo, entonces ...
  #1 (permalink)  
Antiguo 16/07/2005, 10:43
 
Fecha de Ingreso: julio-2005
Mensajes: 4
Antigüedad: 12 años, 4 meses
Puntos: 0
servidor y paginas asp y base de datos

hola

quisiera ver si alguien me puede ayudar, active mi servidor web iis creee una web con un foro super facil solo estoy apendiendo, entonces lo que sucede es que se van las paginas pero cuando voy a presionar el boton de enviar para que se guarden los datos, se cualga. tengo mi base de datos en el mismo archivo. en la direccion : C:inetpub/wwwroot Aqui dentro tengo la base de datos. Que pasa que cuando la subo a mi wenhosting tampoco quiere trabajar. se ven las paginas pero no registra la base de datos entiendo que es la base de datos. voy a ponermi codigo si alguien que sepa de codigo me quiere ayudar se lo agradesco mucho.

<B>Foro Solo ASP</B>
<%
IdMensaje = Request.QueryString("IdMEnsaje")
nombre = Trim(Request.Form("nombre"))
email = Trim(Request.Form("email"))
titulo = Trim(Request.Form("titulo"))
mensaje = Request.Form("mensaje")

If nombre = "" OR email = "" OR mensaje = "" then
Response.Write "<BR><BR>Hay errores en el formulario o faltan datos."
Response.Write "<BR>Presionar Atras y completarlo correctamente"
ElseIf InStr(email, "@") = 0 OR InStr(email,".") = 0 OR Len(email) < 5 then
Response.Write "<BR><BR>Hay errores en el formulario o faltan datos."
Response.Write "<BR>Presionar Atras y completarlo correctamente"
Else

Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./foro.mdb")

'Si es una pregunta nueva...
mensaje = Replace (mensaje, "'", "''")
If IdMensaje = "" then
oConn.Execute "INSERT INTO discusion (nombre, email, titulo, mensaje, fecha) VALUES ('"&nombre&"', '"&email&"', '"&titulo&"', '"&mensaje&"','"& Now()&"')"
'Si es una respuesta a una pregunta...
Else
oConn.Execute "INSERT INTO discusion (nombre, email, titulo, mensaje, fecha, IdCabeza) VALUES ('"&nombre&"', '"&email&"', '"&titulo&"', '"&mensaje&"','"& Now()&"', "&IdMensaje&")"
Set RS_Resp = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT respuestas FROM discusion WHERE IdMensaje="&IdMensaje&""
RS_Resp.Open sql, oConn, 2 ,2
oConn.Execute "UPDATE discusion SET Respuestas=("&RS_Resp("Respuestas")+1&") WHERE IdMensaje="&IdMensaje&" "
RS_Resp.Close
Set RS_Resp = Nothing
End If%>
<BR><BR><B>Gracias <%=nombre%>,<BR>
Fue enviado con éxito el mensaje <FONT COLOR="#B5BBCA"><%= titulo %></FONT> con el texto: </B><BR><BR>
<P><I><%=AcomodarTXT(mensaje)%></I></P><BR><BR>
<A HREF="foro.asp"><B><FONT FACE="Arial" SIZE="2">Volver al Foro de Solo ASP</FONT></B></A>
<%
oConn.Close
Set oConn = nothing
End If

Function AcomodarTXT(txt)
txt = Replace (txt, "<", "&lt;")
txt = Replace (txt, ">", "&gt;")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function
%>
  #2 (permalink)  
Antiguo 16/07/2005, 10:45
 
Fecha de Ingreso: julio-2005
Mensajes: 4
Antigüedad: 12 años, 4 meses
Puntos: 0
este codigo es de la pagina guardar lo envio para que vean la ruta de la base de adatos a ver si esta bien

Gracias anticipadas
  #3 (permalink)  
Antiguo 16/07/2005, 10:51
Avatar de ZydRick  
Fecha de Ingreso: febrero-2005
Ubicación: Lima
Mensajes: 750
Antigüedad: 12 años, 10 meses
Puntos: 4
creo ke no te has percatado de ke este subforo trata de PHP no de ASP, el de ASP esta un poco mas abajo

Un saludo :)
  #4 (permalink)  
Antiguo 16/07/2005, 10:57
 
Fecha de Ingreso: julio-2005
Mensajes: 4
Antigüedad: 12 años, 4 meses
Puntos: 0
gracias lo siento
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 20:14.