inserire redirect

[ondagiuonda]

ciao ragazzi vorrei inserire un redirect in una pagina asp

qual è il codice da usare???

grazie ooooooooonda

[imente]

redirect lato server
<%
response.redirect("nomepagina.htm")
%>

[ondagiuonda]

grazie imente
ho inserito ma non va
forse l'ho inserito nel punto sbagliatgo?
ti posto il code...ok


<%@LANGUAGE="VBSCRIPT"%>

<%
strAction = request("action")

if strAction = "insert" Then
'response.Write("insert new")

strSubject = request.Form("subject")
strDate = request.Form("theDate")
strTime = request.Form("time")
strBody = request.Form("body")

strName = request.Form("name")
strTel = request.Form("tel")
strEmail = request.Form("email")

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "appointments", strConn, 1, 3
rs.AddNew

rs("Dags") = strDate
rs("kl1") = strTime
rs("service") = strSubject
rs("extra") = strBody
rs("name") = strName
rs("tel") = strTel
rs("email") = strEmail
rs.Update

rs.Close
Set rs = Nothing
%>
<script language="JavaScript">
opener.location.reload();
self.close();
</script>
<%
end if
%>
<%
if strAction = "delete" Then
strID = request.QueryString("id")

Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open strConn

strSQL = "DELETE FROM appointments WHERE ID = "&strID
MyConn.Execute(strSQL)
MyConn.close
set MyConn = Nothing
%>
<script language="JavaScript">
opener.location.reload();
self.close();
</script>
<%
End if
%>
<%
if strAction = "update" Then

strID = request.Form("id")
strSubject = request.Form("subject")
strTime = request.Form("time")
strBody = request.Form("body")
strName = request.Form("name")
strTel = request.Form("tel")
strEmail = request.Form("email")



Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open strConn
strSQL="Update appointments Set kl1 = '"&strTime&"',service = '"&strSubject&"',extra = '"&strBody&"', name = '"&strName&"', tel = '"&strTel&"', email = '"&strEmail&"' Where ID = "&strID
MyConn.Execute(strSQL)
MyConn.Close
Set MyConn = Nothing
%>
<script language="JavaScript">
opener.location.reload();
self.close();
</script>
<%
response.redirect("weekview.asp")
%> <%
end if
%>

[imente]

Originariamente inviato da ondagiuonda

<script language="JavaScript">
opener.location.reload();
self.close();
</script>
<% 
response.redirect("weekview.asp") 
%> <%
end if
%>

non ha nessun senso...

le parti in JAVASCRIPT vengono eseguite SOLO quando la pagina arriva sul client

response.redirect EVITA che la pagina venga inviata al client e rimanda il controllo ad un'altra pagina...

o ti serve che la pagina si ricarichi e che poi si chiuda

o ti serve che la pagina cambi immediatamente (in questo caso quando entra nel ramo action=update)

come mai quindi c'è sia REDIRECT che JS???

[ondagiuonda]

mi serve questoche la pagina cambi immediatamente"
sto usando uno script per aggiungere un evento ad un calendario una volta inserito questo , cliccando su inserisci mi va alla pagina save.asp che quella di cui ti ho postato il code...solo che è bianca e io vorrei solo che questa non si vedesse e che ritorni a weekview.asp...
spero di essermi spiegato bene...

[ondagiuonda]

up

[imente]

lo so anche io che è bianca

pensateci prima di fare le cose

<%@LANGUAGE="VBSCRIPT"%>

<%
strAction = request("action")

if strAction = "insert" Then
'response.Write("insert new")

strSubject = request.Form("subject")
strDate = request.Form("theDate")
strTime = request.Form("time")
strBody = request.Form("body")

strName = request.Form("name")
strTel = request.Form("tel")
strEmail = request.Form("email")

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "appointments", strConn, 1, 3
rs.AddNew

rs("Dags") = strDate
rs("kl1") = strTime
rs("service") = strSubject
rs("extra") = strBody
rs("name") = strName
rs("tel") = strTel
rs("email") = strEmail
rs.Update

rs.Close
Set rs = Nothing
end if
%>
<%
if strAction = "delete" Then
strID = request.QueryString("id")

Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open strConn

strSQL = "DELETE FROM appointments WHERE ID = "&strID
MyConn.Execute(strSQL)
MyConn.close
set MyConn = Nothing
End if
%>
<%
if strAction = "update" Then

strID = request.Form("id")
strSubject = request.Form("subject")
strTime = request.Form("time")
strBody = request.Form("body")
strName = request.Form("name")
strTel = request.Form("tel")
strEmail = request.Form("email")

Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open strConn
strSQL="Update appointments Set kl1 = '"&strTime&"',service = '"&strSubject&"',extra = '"&strBody&"', name = '"&strName&"', tel = '"&strTel&"', email = '"&strEmail&"' Where ID = "&strID
MyConn.Execute(strSQL)
MyConn.Close
Set MyConn = Nothing
end if

response.redirect("weekview.asp")
%>

ho tolto le schifezze JS (qui inutili) e messo il redirect in fondo

:rollo:

[ondagiuonda]

provo subito grazie 1000!!!