webForumDet fria alternativet

Ifsats i ett skickamailscript

ASP

2 svar · 203 visningar · startad av MickeA.com

Medlem sedan feb. 20034 441 inlägg
Frågan#1

Hej

Har ett mailerscript som kör med Jmail och ett formulär i Flash, nu är det en ifsats i scriptet som krånglar.

Så här ser allt ut:

<%
Option Explicit
Dim fornamn, efternamn, email, hemsida, telefon, telefax, meddelande, subject, recipient, web_site, msg

'_________________________________________

fornamn = Request.Form("fornamn")
efternamn = Request.Form("efternamn")
email = Request.Form("email")
hemsida = Request.Form("hemsida")
telefon = Request.Form("telefon")
telefax = Request.Form("telefax")
meddelande = Request.Form("meddelande")

'_________________________________________

subject = "Mail Från Hemsidan..."
recipient = "Info@MickeA.com"

'_________________________________________

Server.HTMLEncode("fornamn")
Server.HTMLEncode("efternamn")
Server.HTMLEncode("meddelande")

'_________________________________________

if hemsida = "http://www." then
web_site = hemsida
end if

if hemsida = "www." then
web_site = "http://" & hemsida
end if

if hemsida <> "." then
web_site = "Ingen Hemsida"
end if

'_________________________________________

set msg = Server.CreateOBject( "JMail.Message" )

msg.From = email
msg.FromName = fornamn & " " & efternamn
msg.AddRecipient recipient
msg.Subject = subject

'_________________________________________

msg.body = "Namn: " & fornamn & " " & efternamn & vbcrlf & "Emailadress: " & email & vbcrlf & "Hemsida: " & web_site & vbcrlf & "Telefonnummer: " & telefon & vbcrlf & "Telefaxnummer: " & telefax & vbcrlf & vbcrlf & "Meddelande: " & vbcrlf & meddelande

'_________________________________________

if not msg.Send("smtp.mickea.com" ) then
Response.write "&skickat=nej"
else
Response.write "&skickat=ja"
end if
%>

Det är alltså det stycket med ifsatsen som kollar "hemsida" so spökar.

Det som ska hända är att:

1. Om textfältet hemsida innehåller "http://www." ska värdet av hemsida sättas som värde av "Web_site".

2. Om textfältet hemsida innehåller "www." ska "http://" läggas till framför. och sättas som värde av "Web_site".

3. Om det inte finns med ngn punkt i textrutan, dvs. om textfältet inte innehåller ngn riktigt webadress, ska värdet av !Web_site" bli "Ingen Hemsida".

Har såna jävla problem med det här, för hela tiden blir värdet "Ingen Hemsida" OAVSETT VAD MAN SKRIVER I TEXTFÄLTET.

Hjälp Hjälp Hjäklp

//Micke - Nybörjare

Medlem sedan juni 200032 967 inlägg
#2
if left(hemsida, 11) = "http://www." then 
web_site = hemsida 
end if 

if left(hemsida, 4) = "www." then 
web_site = "http://" & hemsida 
end if 

if not instr(hemsida, ".") >0 then 
web_site = "Ingen Hemsida" 
end if

För att din kod ska bli lättläst så vore det bra om du använde [kod]-taggar.

Och du, välkommen till wF! :)

Mvh,

Medlem sedan feb. 20034 441 inlägg
#3

Ok...

Tack så mkt, trevligt med ett välkomnande o allt, är ren och skär nybörjare, men det ger sig mer o mer för varj dag som tickar...

263 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
121 ms — deklarationer (db)
0 ms — hämta statistik (cache)
137 ms — hämta tråd, inlägg och bilagor (db)
123 ms — ändringar (db)