En la linea del update me da error de ke la BD o el objeto no son actualizables o algo asi. Tanto la carpeta como la vase de datos estan con permiso de escritura. Lo del objeto no se a ke puede referirse.
Cita:
<%
'Insert your mailserver name and port (usually 25)
mailserver="mail.yourdomain.com:25"
%>
<html>
<head>
<title>Postales Byenbici.com</title>
<%
Flag = request.form("Flag")
If IsEmpty(Flag) or Flag = "" then
%>
</head>
<body bgcolor="#000000" text="#ffffff" link="#ffffff" alink="#ffffff" vlink="#ffffff">
<font size="6" face="arial">
Envia una postal</font>
<br><hr><br>
<form action="postales.asp" method="POST" >
<font size="5" face="arial">Ponle titulo a la postal</font><br><br>
<font size="3" face="arial">
<input type="text" name="fsogn" size="50" value="Buen Viaje ! ! ! "><br><hr><br>
<font size="5" face="arial">Elige una imagen</font><br><br>
...
<table border="0">
<tr><td> </td><td>Mensaje:</td><td> </td><td> </td></tr>
<tr><td> </td><td rowspan="4"><textarea name="kvedja" rows="8" cols="20"></textarea></td><td>Para:</td><td><input type="text" size="20" name="nafn1" Value="<%= Request.QueryString("nafn") %>"></td></tr>
<tr><td> </td><td>Email</td><td><input type="text" size="20" name="netfang1" Value="<%= Request.QueryString("send") %>"></td></tr>
<tr><td> </td><td>De</td><td><input type="text" size="20" name="nafn2"></td></tr>
<tr><td> </td><td>Email</td><td><input type="text" size="20" name="netfang2"></td></tr>
</table><br><br>
<input type="hidden" name="Flag" value=1>
<input type="submit" value=" Haber como keda ">
</form>
<%
end if
if flag = 1 then
anafn1 = request.form("nafn1")
anetfang1 = request.form("netfang1")
anafn2 = request.form("nafn2")
anetfang2 = request.form("netfang2")
akvedja = request.form("kvedja")
afsogn = request.form("fsogn")
amynd = request.form("mynd")
akvedja = server.HTMLencode(Request.form("kvedja"))
akvedja = Replace(akvedja, vbCrLf, "<br>")
%>
</head>
<body bgcolor="#000000" text="#ffffff" link="#ffffff" alink="#ffffff" vlink="#ffffff">
<center><font size="5">Keda asi la cosa +/-...</font><br>
<table border="1" width="700">
<tr>
<td rowspan="2" width="500"><font size="5"><em><b><%= afsogn %>
</b></em></font><br>
<br>
<center><img src="<%= amynd %>"></center><br><b><%= akvedja %></b>
</td>
<td width="200"> </td>
</tr>
<tr>
<td width="200" rowspan="2"><font color="#FFFF00"><b>Para:<br>
<%= anafn1 %><br>
</b></font><a href="<%= anetfang1 %>"><font
color="#FFFF00"><b><%= anetfang1 %></b></font></a><font
color="#FFFF00"><b><br>
<br>
De:<br>
<%= anafn2 %><br>
</b></font><a href="<%= anetfang2 %>"><font
color="#FFFF00"><b><%= anetfang2 %></b></font></a><font
color="#FFFF00"><b> </b></font></td>
</tr>
</table>
<form action="postales.asp" method="POST">
<input type="hidden" name="nafn1" value="<%= anafn1 %>">
<input type="hidden" name="netfang1" value="<%= anetfang1 %>">
<input type="hidden" name="nafn2" value="<%= anafn2 %>">
<input type="hidden" name="netfang2" value="<%= anetfang2 %>">
<input type="hidden" name="kvedja" value="<%= akvedja %>">
<input type="hidden" name="mynd" value="<%= amynd %>">
<input type="hidden" name="fsogn" value="<%= afsogn %>">
<input type="hidden" name="flag" value="2">
<input type="submit" value="Enviar">
<input type="button" value="Volver" OnClick="javascript:history.go(-1)">
<br>
<%
End If
If Flag = 2 then
Randomize
apass = int(rnd*99999)+1
adags = now()
anafn1 = request.form("nafn1")
anetfang1 = request.form("netfang1")
anafn2 = request.form("nafn2")
anetfang2 = request.form("netfang2")
akvedja = request.form("kvedja")
afsogn = request.form("fsogn")
amynd = request.form("mynd")
DSNtemp="Driver={Microsoft Access Driver (*.mdb)};"
DSNtemp= DSNtemp & "DBQ=" & Server.MapPath(".\otros\kort.mdb")
set Conn=server.CreateObject("ADODB.Connection")
Conn.open DSNtemp
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from kort"
rs.open sql, Conn, 3, 3
rs.addnew
rs.fields("pass").value=apass
rs.fields("dags").value=adags
rs.fields("nafn1").value=anafn1
rs.fields("netfang1").value=anetfang1
rs.fields("nafn2").value=anafn2
rs.fields("netfang2").value=anetfang2
rs.fields("kvedja").value=akvedja
rs.fields("fsogn").value=afsogn
rs.fields("mynd").value=amynd
---Error-----
rs.update
---Error-----
rs.close
If err.number>0 then
response.write "VBScript error:" & "<P>"
response.write "Number=" & err.number & "<P>"
response.write "Explanation.=" & err.description & "<P>"
response.write "Help Context=" & err.helpcontext & "<P>"
response.write "Help Path=" & err.helppath & "<P>"
response.write "Native Error=" & err.nativeerror & "<P>"
response.write "Source=" & err.source & "<P>"
response.write "SQLState=" & err.sqlstate & "<P>"
end if
IF conn.errors.count> 0 then
response.write "Access database error" & "<P>"
response.write SQLstmt & "<P>"
for counter= 0 to conn.errors.count
response.write "Error #" & conn.errors(counter).number & "<P>"
response.write "Explanation. -> " & conn.errors(counter).description & "<P>"
next
Conn.Close
set conn = nothing
else
Conn.Close
set conn = nothing
DSNtemp="Driver={Microsoft Access Driver (*.mdb)};"
DSNtemp= DSNtemp & "DBQ=" & Server.MapPath(".\otros\kort.mdb")
set Conn=server.CreateObject("ADODB.Connection")
Conn.open DSNtemp
sqlstmt = "SELECT * FROM kort WHERE nafn1 = "
sqlstmt = sqlstmt & "'" & anafn1 & "'"
sqlstmt = sqlstmt & " AND pass = "
sqlstmt = sqlstmt & apass
sqlstmt = sqlstmt & " ORDER BY id DESC;"
'rs.Open sqlstmt,conn,3,3
set rs = conn.Execute(sqlstmt)
id = rs("id")
Conn.Close
Set conn = nothing
dim mailbody
scriptname = Request.servervariables("script_name")
scriptname = Replace(scriptname,"postales.asp","postales2.asp")
scriptname = "http://" & request.servervariables("server_name") & scriptname
mailbody = anafn2 & " Tan enviado una postal mu chula" & Vbcrlf & vbcrlf
mailbody = mailbody & "puedes verla en la direccion:" & vbcrlf
mailbody = mailbody & ScriptName & "?id=" & id & "&pass=" & apass
mailbody = mailbody & vbcrlf & vbcrlf
mailbody = mailbody & "O visita " & scriptname & vbcrlf
mailbody = mailbody & "y mete estos datos" & vbcrlf
mailbody = mailbody & "Id postal = " & id & vbcrlf
mailbody = mailbody & "Password postal = " & apass & vbCrlf & vbcrlf
mailbody = mailbody & "Written by Sakki - http://www.welcome.to/sakki"
blabla = "POstal enviada desde: " & anafn2
'Response.Write mailbody
set SMTP=Server.CreateObject("Jmail.SMTPMail")
SMTP.ServerAddress= mailserver
SMTP.Sender=anetfang2
SMTP.AddRecipient anetfang1
SMTP.Subject=blabla
SMTP.Body=mailbody
SMTP.Execute
%>
</head>
<body bgcolor="#000000" text="#ffffff" link="#ffffff" alink="#ffffff" vlink="#ffffff">
<b>
Muchas de nadas !!<br>
La postal va caino de: <a href="mailto:<%= anetfang1 %>"><%= anafn1 %></a><br>
Enviada por: <a href="mailto:<%= anetfang2 %>"><%= anafn2 %></a><br>
<BR><A href="javascript:history.go(-3)">Patras</A>
<%
end if
end if
%>
</body>
</html>
'Insert your mailserver name and port (usually 25)
mailserver="mail.yourdomain.com:25"
%>
<html>
<head>
<title>Postales Byenbici.com</title>
<%
Flag = request.form("Flag")
If IsEmpty(Flag) or Flag = "" then
%>
</head>
<body bgcolor="#000000" text="#ffffff" link="#ffffff" alink="#ffffff" vlink="#ffffff">
<font size="6" face="arial">
Envia una postal</font>
<br><hr><br>
<form action="postales.asp" method="POST" >
<font size="5" face="arial">Ponle titulo a la postal</font><br><br>
<font size="3" face="arial">
<input type="text" name="fsogn" size="50" value="Buen Viaje ! ! ! "><br><hr><br>
<font size="5" face="arial">Elige una imagen</font><br><br>
...
<table border="0">
<tr><td> </td><td>Mensaje:</td><td> </td><td> </td></tr>
<tr><td> </td><td rowspan="4"><textarea name="kvedja" rows="8" cols="20"></textarea></td><td>Para:</td><td><input type="text" size="20" name="nafn1" Value="<%= Request.QueryString("nafn") %>"></td></tr>
<tr><td> </td><td>Email</td><td><input type="text" size="20" name="netfang1" Value="<%= Request.QueryString("send") %>"></td></tr>
<tr><td> </td><td>De</td><td><input type="text" size="20" name="nafn2"></td></tr>
<tr><td> </td><td>Email</td><td><input type="text" size="20" name="netfang2"></td></tr>
</table><br><br>
<input type="hidden" name="Flag" value=1>
<input type="submit" value=" Haber como keda ">
</form>
<%
end if
if flag = 1 then
anafn1 = request.form("nafn1")
anetfang1 = request.form("netfang1")
anafn2 = request.form("nafn2")
anetfang2 = request.form("netfang2")
akvedja = request.form("kvedja")
afsogn = request.form("fsogn")
amynd = request.form("mynd")
akvedja = server.HTMLencode(Request.form("kvedja"))
akvedja = Replace(akvedja, vbCrLf, "<br>")
%>
</head>
<body bgcolor="#000000" text="#ffffff" link="#ffffff" alink="#ffffff" vlink="#ffffff">
<center><font size="5">Keda asi la cosa +/-...</font><br>
<table border="1" width="700">
<tr>
<td rowspan="2" width="500"><font size="5"><em><b><%= afsogn %>
</b></em></font><br>
<br>
<center><img src="<%= amynd %>"></center><br><b><%= akvedja %></b>
</td>
<td width="200"> </td>
</tr>
<tr>
<td width="200" rowspan="2"><font color="#FFFF00"><b>Para:<br>
<%= anafn1 %><br>
</b></font><a href="<%= anetfang1 %>"><font
color="#FFFF00"><b><%= anetfang1 %></b></font></a><font
color="#FFFF00"><b><br>
<br>
De:<br>
<%= anafn2 %><br>
</b></font><a href="<%= anetfang2 %>"><font
color="#FFFF00"><b><%= anetfang2 %></b></font></a><font
color="#FFFF00"><b> </b></font></td>
</tr>
</table>
<form action="postales.asp" method="POST">
<input type="hidden" name="nafn1" value="<%= anafn1 %>">
<input type="hidden" name="netfang1" value="<%= anetfang1 %>">
<input type="hidden" name="nafn2" value="<%= anafn2 %>">
<input type="hidden" name="netfang2" value="<%= anetfang2 %>">
<input type="hidden" name="kvedja" value="<%= akvedja %>">
<input type="hidden" name="mynd" value="<%= amynd %>">
<input type="hidden" name="fsogn" value="<%= afsogn %>">
<input type="hidden" name="flag" value="2">
<input type="submit" value="Enviar">
<input type="button" value="Volver" OnClick="javascript:history.go(-1)">
<br>
<%
End If
If Flag = 2 then
Randomize
apass = int(rnd*99999)+1
adags = now()
anafn1 = request.form("nafn1")
anetfang1 = request.form("netfang1")
anafn2 = request.form("nafn2")
anetfang2 = request.form("netfang2")
akvedja = request.form("kvedja")
afsogn = request.form("fsogn")
amynd = request.form("mynd")
DSNtemp="Driver={Microsoft Access Driver (*.mdb)};"
DSNtemp= DSNtemp & "DBQ=" & Server.MapPath(".\otros\kort.mdb")
set Conn=server.CreateObject("ADODB.Connection")
Conn.open DSNtemp
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from kort"
rs.open sql, Conn, 3, 3
rs.addnew
rs.fields("pass").value=apass
rs.fields("dags").value=adags
rs.fields("nafn1").value=anafn1
rs.fields("netfang1").value=anetfang1
rs.fields("nafn2").value=anafn2
rs.fields("netfang2").value=anetfang2
rs.fields("kvedja").value=akvedja
rs.fields("fsogn").value=afsogn
rs.fields("mynd").value=amynd
---Error-----
rs.update
---Error-----
rs.close
If err.number>0 then
response.write "VBScript error:" & "<P>"
response.write "Number=" & err.number & "<P>"
response.write "Explanation.=" & err.description & "<P>"
response.write "Help Context=" & err.helpcontext & "<P>"
response.write "Help Path=" & err.helppath & "<P>"
response.write "Native Error=" & err.nativeerror & "<P>"
response.write "Source=" & err.source & "<P>"
response.write "SQLState=" & err.sqlstate & "<P>"
end if
IF conn.errors.count> 0 then
response.write "Access database error" & "<P>"
response.write SQLstmt & "<P>"
for counter= 0 to conn.errors.count
response.write "Error #" & conn.errors(counter).number & "<P>"
response.write "Explanation. -> " & conn.errors(counter).description & "<P>"
next
Conn.Close
set conn = nothing
else
Conn.Close
set conn = nothing
DSNtemp="Driver={Microsoft Access Driver (*.mdb)};"
DSNtemp= DSNtemp & "DBQ=" & Server.MapPath(".\otros\kort.mdb")
set Conn=server.CreateObject("ADODB.Connection")
Conn.open DSNtemp
sqlstmt = "SELECT * FROM kort WHERE nafn1 = "
sqlstmt = sqlstmt & "'" & anafn1 & "'"
sqlstmt = sqlstmt & " AND pass = "
sqlstmt = sqlstmt & apass
sqlstmt = sqlstmt & " ORDER BY id DESC;"
'rs.Open sqlstmt,conn,3,3
set rs = conn.Execute(sqlstmt)
id = rs("id")
Conn.Close
Set conn = nothing
dim mailbody
scriptname = Request.servervariables("script_name")
scriptname = Replace(scriptname,"postales.asp","postales2.asp")
scriptname = "http://" & request.servervariables("server_name") & scriptname
mailbody = anafn2 & " Tan enviado una postal mu chula" & Vbcrlf & vbcrlf
mailbody = mailbody & "puedes verla en la direccion:" & vbcrlf
mailbody = mailbody & ScriptName & "?id=" & id & "&pass=" & apass
mailbody = mailbody & vbcrlf & vbcrlf
mailbody = mailbody & "O visita " & scriptname & vbcrlf
mailbody = mailbody & "y mete estos datos" & vbcrlf
mailbody = mailbody & "Id postal = " & id & vbcrlf
mailbody = mailbody & "Password postal = " & apass & vbCrlf & vbcrlf
mailbody = mailbody & "Written by Sakki - http://www.welcome.to/sakki"
blabla = "POstal enviada desde: " & anafn2
'Response.Write mailbody
set SMTP=Server.CreateObject("Jmail.SMTPMail")
SMTP.ServerAddress= mailserver
SMTP.Sender=anetfang2
SMTP.AddRecipient anetfang1
SMTP.Subject=blabla
SMTP.Body=mailbody
SMTP.Execute
%>
</head>
<body bgcolor="#000000" text="#ffffff" link="#ffffff" alink="#ffffff" vlink="#ffffff">
<b>
Muchas de nadas !!<br>
La postal va caino de: <a href="mailto:<%= anetfang1 %>"><%= anafn1 %></a><br>
Enviada por: <a href="mailto:<%= anetfang2 %>"><%= anafn2 %></a><br>
<BR><A href="javascript:history.go(-3)">Patras</A>
<%
end if
end if
%>
</body>
</html>
