Ti scrivo il codice della seconda pag lo sto guardando da un'ora, ma non ho trovato niente

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim Rorder_val
Rorder_val = "-1"
If (Request("order_ID") <> "") Then
Rorder_val = Request("order_ID")
End If
%>
<%
Dim Rorder
Dim Rorder_numRows

Set Rorder = Server.CreateObject("ADODB.Recordset")
Rorder.ActiveConnection = MM_conncartweaver_STRING
Rorder.Source = "SELECT * FROM cwq_OrderDetails WHERE tbl_orders.order_ID='" + Replace(Rorder_val, "'", "''") + "'"
Rorder.CursorType = 0
Rorder.CursorLocation = 2
Rorder.LockType = 1
Rorder.Open()

Rorder_numRows = 0
%>
<%
Dim strCognome
Dim strNome
Dim strEmail
Dim strOrder

Dim strEmailA
Dim strRedirect
Dim strOS
Dim strUrlAsp
Dim strIP
Dim strDominio
Dim strForm
Dim strServer
Dim strOggetto

strOrder = (Rorder.Fields.Item("order_ID").Value)
strNome = (Rorder.Fields.Item("cst_FirstName").Value)
strCognome= (Rorder.Fields.Item("cst_LastName").Value)
strEmail= "info@blabla.it"
strEmailA = (Rorder.Fields.Item("cst_Email").Value)
strRedirect = "conferma.htm"

strOggetto="Ordine prodotti Cosvical"
strDominio = Request.ServerVariables("HTTP_HOST")
strIP = Request.ServerVariables("REMOTE_ADDR")
strForm = Request.ServerVariables("HTTP_REFERER")
strOS= Request.ServerVariables("HTTP_USER_AGENT")
strServer = Request.ServerVariables("SERVER_SOFTWARE")
strUrlAsp = Request.ServerVariables("URL")

strEmailBody = strEmailBody & "Gentile cliente,"&"
"&" nel ringraziarla per l'acquisto da lei effettuato presso Cosvical,"&"
"&" le ricordiamo i suoi dati inseriti al momento dell'ordine:"&"
"&""&"Nome:"&"" &strNome& "

"
strEmailBody = strEmailBody & "Cosvical provvederà ad inviarle i prodotti ordinati non appena riceverà il bonifico."
strEmailBody = strEmailBody & "============================================= ====
"
strEmailBody = strEmailBody & "Nome banca:......................................
"
strEmailBody = strEmailBody & "Indirizzo banca: ................................
"
strEmailBody = strEmailBody & "CAB: ....." &" " & "ABI: ..................
"
strEmailBody = strEmailBody & "C/C: ............................................
"
strEmailBody = strEmailBody & "============================================= ====
"

Set mail = Server.CreateObject("Persits.Mailsender")
mail.Host = "mail.arpanet.it"
mail.From = strEmail
mail.FromName = "Mio nome" '"Modulo di richiesta informazioni"
mail.AddAddress strEmailA
mail.Subject = strOggetto
mail.Body = strEmailBody
mail.Ishtml = True
mail.Send
Set mail = nothing
%>

<% Rorder.Close()
Set Rorder = Nothing
%>
<% Response.Redirect strRedirect %>

Se metto la stringa di codice che mi hai suggerito tu, mi compare appunto una pagina bianca e l'ordine altrimenti non mi segnala nessun errore e dice : impossibile visualizzare la pagina.