Hvordan linker jeg fra login til subdomæne?
Hej! Jeg har oprettet et loginsystem, som fungerer som det skal!Men nu vil gerne ændre lidt i det, så det ved tryk på "log ind" viderestilles til mit subdomæne... Sådan som det er sat op nu linker den således: www.service2004.dk/bruger/modtag.asp, men den skulle gerne linke således www.bruger.service2004.dk/modtag.asp
Er dog der nogen, der kan hjælde mig?
<%
If Request.Form("action") <> "validate_login" Then
%>
</p>
<form action="bruger.service.2004.dk/modtag.asp" method="post">
<input type="hidden" name="action" value="validate_login" />
<table border="0" align="center">
<tr>
<td align="right"><span class="style19"><span class="style31"><span class="style33">Brugernavn:</span></span></span></td>
<td><input name="login" type="text" class="body" /></td>
</tr>
<tr>
<td align="right"><span class="style19"><span class="style31"><span class="style33">Password:</span></span></span></td>
<td><input name="password" type="password" class="body" /></td>
</tr>
<tr>
<td align="right"></TD>
<td><input name="submit" type="submit" VALUE="Log ind" /></td>
</tr>
</table>
<div align="center"></div>
</form>
<%
Else
strSQL = "SELECT * FROM tblLoginInfo " _
& "WHERE username='" & Replace(Request.Form("login"), "'", "''") & "' " _
& "AND password='" & Replace(Request.Form("password"), "'", "''") & "';"
Set cnnLogin = Server.CreateObject("ADODB.Connection")
cnnLogin.Open("DRIVER={Microsoft Access Driver (*.mdb)};" _
& "DBQ=" & Server.MapPath("login.mdb"))
Set rstLogin = cnnLogin.Execute(strSQL)
If Not rstLogin.EOF Then
%>
<p align="center" class="style19"> <strong>Du er nu logget ind!</strong></p>
<table width="150" border="0" align="center">
<tr>
<td><span class="textw"><a href="default.asp">Telefonliste</a></span></td>
<td> </td>
</tr>
</table> <p align="center" class="style19"> </p>
<div align="center">
<%
Else
%>
<span class="style21">Du er ikke logget ind - har du glemt dit password eller brugernavn - kontakt Bjarne
</span> </div>
<p align="center"> <a href="login.asp">Prøv igen </a> </p>
<%
'Response.End
End If
' Clean Up
rstLogin.Close
Set rstLogin = Nothing
cnnLogin.Close
Set cnnLogin = Nothing
End If
%>
