Fejl i http:// adresse

Årsagen til at adressen ikke virker, er at du ikke har http:// med i den. Så kan browseren ikke finde ud af det.

Prøv dette (ikke testet):

    <td width="100"><font face="Arial, Helvetica, sans-serif" size="2">Hjemmeside</font></td>
    <td width="200"><font face="Arial, Helvetica, sans-serif" size="2">
<%
dim varHjemmeside
varHjemmeside = rs("Hjemmeside")
If (inStr(varHjemmeside,'http://') <> 0) Then
    varHjemmeside = "http://" & varHjemmeside
End If

response.write "<a href='" & varHjemmeside & "'>" & varHjemmeside & "</a>"
%>
      </font></td>
  </tr>

Fejl:

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EA)
Der er en syntaksfejl
/tmp/vis.asp, line 42, column 24
If (inStr(varHjemmeside,'http://') <> 0) Then
-----------------------^

Prøv dette istedet:

    <td width="100"><font face="Arial, Helvetica, sans-serif" size="2">Hjemmeside</font></td>
    <td width="200"><font face="Arial, Helvetica, sans-serif" size="2">
<%
dim varHjemmeside
varHjemmeside = rs("Hjemmeside")
If (inStr(varHjemmeside,"http://") <> 0) Then
    varHjemmeside = "http://" & varHjemmeside
End If

response.write "<a href='" & varHjemmeside & "'>" & varHjemmeside & "</a>"
%>
      </font></td>
  </tr>

Nu er problemet det samme som først

Ok, jeg lavede en fejl. Prøv dette:

  <td width="100"><font face="Arial, Helvetica, sans-serif" size="2">Hjemmeside</font></td>
    <td width="200"><font face="Arial, Helvetica, sans-serif" size="2">
<%
dim varHjemmeside
varHjemmeside = rs("Hjemmeside")
If (inStr(varHjemmeside,"http://") == 0) Then
    varHjemmeside = "http://" & varHjemmeside
End If

response.write "<a href='" & varHjemmeside & "'>" & varHjemmeside & "</a>"
%>
      </font></td>
  </tr>

Der skal da ikke "" om http://, eller skal der???
If (inStr(varHjemmeside,"http://") <> 0) Then

<%
dim varHjemmeside
varHjemmeside = rs("Hjemmeside")
If LCase(Left(varHjemmeside,7))="http://" then%>
<p><a href="<%=varhjemmeside%>" target="_blank"><%=varhjemmeside%></a>
<%else%>
<p><a href="http://<%=varhjemmeside%>" target="_blank"><%=varhjemmeside%></a>
<%end if%>

<%
dim varHjemmeside
varHjemmeside = rs("Hjemmeside")
If (LCase(Left(varHjemmeside,7))="http://" then
    varHjemmeside = varHjemmeside
else
    varHjemmeside = "http://" & varHjemmeside
End If

response.write "<a href='" & varHjemmeside & "'>" & varHjemmeside & "</a>"
%>

Øhhh peppioni, når du ændrer det, hvorfor så ikke skære lidt ned på udnødvendig kode:

<%
dim varHjemmeside
varHjemmeside = rs("Hjemmeside")
If (LCase(Left(varHjemmeside,7)) <> "http://" then
    varHjemmeside = "http://" & varHjemmeside
End If

response.write "<a href='" & varHjemmeside & "'>" & varHjemmeside & "</a>"
%>

jaaa, det var et godt spørgsmål, det ved jeg faktisk ikke, men det er ikke første gang jeg kommer til at gøre det.

ha ha ha ha..... guess not.

Med hensyn til denne "http://", så skal den være i "" da det er en string og ikke en integer.