<%
If request("Button")="Senda" then
dim objMail, sRequest, sBody
Set objMail = Server.CreateObject("CDONTS.NewMail")
For each sRequest in Request.Form
'response.write sRequest
Select Case sRequest
Case "From"
objMail.From=request(sRequest)
Case "Button"
Case else
sBody=sBody & sRequest & " - " & request(sRequest) & chr(13)
End select
Next
'response.write sBody
objMail.Body=sBody
objMail.To="kranaverk@kranaverk.is"
objMail.Subject="Af heimasíğu"
objMail.Send
set objMail = nothing
response.write "
