ayuda a novato con ganas

[jrlavado]

Buenas tardes a todos:

Soy muy nuevo en esto de ASP pero en lo que me pongo al dia con estos manuales y las consultas a los foros quiero ir disipando dudas e ir investigando despues el porque.

os lanzo la primera pregunta.

¿Como puedo cambiar el valor de las variables por valores fijos y donde?.

Con un par de ejemplos me vale el resto tengo que intentar hacerlo yo.

Gracias a todos por adelantado.



//inicio de codigo
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
cuerpo = ""
for i = 1 to request.form.count
nombre = request.form.key(i)
valor = request.form.item(i)
select case nombre
case "smtp" Mailer.RemoteHost = valor
case "remitente"
Mailer.FromName = valor
Mailer.FromAddress = valor
case "asunto" Mailer.Subject = valor
case "para" Mailer.AddRecipient valor,valor
case "envio_correcto" envio_correcto = valor
case "envio_erroneo" envio_erroneo = valor
case else cuerpo = cuerpo & nombre & " = " & valor & vbcrlf
end select
Next
Mailer.AddRecipient AddRecipient1,AddRecipient2
Mailer.BodyText = cuerpo
Mailer.charset = 2

if Mailer.sendmail then
IF request("email")<>"" and request("mensaje")<>"" THEN
Mailer.ClearBodyText
Mailer.ClearRecipients
Mailer.AddRecipient request("email"),request("email")
Mailer.BodyText = request("mensaje")
Mailer.sendmail
END IF
response.redirect(envio_correcto)
else
response.redirect(envio_erroneo)
end if
%>
// fin de codigo