If "findes i text" else "skriv det i teksten"

Prøv med denne funktion:

Function web(Link)

  Check1 = InStr(1, Link, "www")
  Check2 = (InStr(1, Link, "http") + 3)
  Check3 = InStr(1, Link, ":")
  Check4 = InStr(1, Link, "/")
  Check5 = InStr(1, Link, "//")
  Length = int(len(Link) + 1)

if InStr(1, Link, ".") > 0 Then
  If (left(link,7) = "http://") Then
    Link = Link
  elseIF (Check1>0) Then
    Link = "http://" + Mid(Link, Check1, Length-Check1)
  elseIf ((check2>3) Or (check3>0) Or (Check4>0) Or ((check5+1)>1)) Then
    str = (Check2) & "," & (Check3) & "," & (Check4) & "," & (Check5+1)
    Start = Split(str, ",", -1, 1)
    Link = "http://" + Mid(Link, (Max(Start)+1), Length-(Max(Start)+1))
  else
    Link = "http://" + Mid(Link, 1, Length-1)
  End If
  web = Link
End If
  web = Link
End Function


Den kan håndtere rigtig meget. Jeg bruger den altid.

if strHjemmeside <> "" then
    if left(strHjemmeside,7) = "http://" then
      strHjemmeside = strHjemmeside
    else
      strHjemmeside = "http://" & strHjemmeside
    end if
    response.write strHjemmeside
end if

Du bruger den således:
web(Trim(Request.Form("dinForm")))

Kan også forkortes til

if strHjemmeside <> "" then
  if left(strHjemmeside,7) <> "http://" then
    strHjemmeside = "http://" & strHjemmeside
  end if
  response.write strHjemmeside
end if

linkfeltet = replace(request.form(linkfeltet),"http://","")

der hvor du viser links skriver du så bare http:// indfør du poster linket

superior >> Også en ganske glimrende løsning.

tazza-do-ha  c",)

Superior:
Kan jeg få dig til at forklarer din løsning nærmere..
Jeg har et form felt, hvor man indtaster URL'en
skal "linkfeltet = replace(request.form(linkfeltet),"http://","")" det sættes ind i den..?

lad os sige at dit formfelt hedder "link"
så beder vi om at undersøge hvad der er i feltet og erstatte http:// med ingenting.
derefter spytter vi det ud i en ny variabel (lad os kalde det "hyperlink")

Ovenstående vil se således ud:
hyperlink = replace(request.form("link"),"http://","")

værdien af hyperlink skal du så sætte i databasen