redirect til samme frame
hej eksperter...Scriptet nednunder er til et link-system, hvor brugerne kan tilføje links.. men efter man har tilføjet et, så reloades siden, men i et nyt vindue.. hvordan ændrer jeg det så den reloades i samme frame?
<head>
<base target="_blank" />
</head>
<%
' standard indstillinger
font = "<font face='arial' size='2'>"
page_header = "Links"
links_header = "links"
path = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
' hent mode på dokument
mode = request("mode")
' ---------------------------------------------------------------
' save det nye link og kald derefter links systemet igen
' ---------------------------------------------------------------
if mode = "save" then
on error resume next
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(path & "links.txt", 1, false)
if not a.AtEndOfStream and err = 0 then
links = a.readall
else
links = ""
end if
newlinks = Date & vbcrlf & request("navn") & vbcrlf & request("url") & vbcrlf & request("beskrivelse") & vbcrlf
links = newlinks & links
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(path & "links.txt", 2)
a.Write( links )
a.Close
response.redirect "default.asp"
end if
' ---------------------------------------------------------------
' vis de links vi har gemt i textfilen
' ---------------------------------------------------------------
if mode = "" then
' skriv header til HTML dokument
response.write "<html><head><title>" & page_header & "</title></head><body bgcolor='#00248F' text='#BFCFFF' alink='#FFFFFF' link='#FF0000' vlink='#FF0000'>"
response.write font
response.write "<b>" & links_header & "</b><hr noshade color='#BFCFFF' size='2'><br>"
' check om filen overhovedet findes
on error resume next
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(path & "links.txt", 1, false)
' hvis filen findes, læs den og udskriv links listen
if err = 0 then
' check at vi ikke er kommet til sidste link i links filen
do while not a.atEndOfStream
dato = a.readline ' læs dato linien
navn = a.readline ' læs link navn linien
url = a.readline ' læs url linien
beskrivelse = a.readline ' læs beskrivelses linien
response.write dato & " : <a href='" & url & "'>" & navn & "</a> " & beskrivelse & "<br>" & vbcrlf
loop
else
' i tilfælde af at filen ikke findes, udskriv fejlmeddelelse
response.write "Ingen links indtastet!"
end if
a.Close
' lav formular, til oprettelse af nye links
response.write "<br><br><hr noshade color='#ffffff' size='2'>Opret dit eget link, ved at bruge formularen nedenunder :"
response.write "<form name='ny' action='default.asp'><table cellspacing='1' cellpadding='0'>"
response.write "<input type='hidden' name='mode' value='save'>"
response.write "<tr><td width='100'>" & font & "Navn</td><td><input size='35' type='text' name='navn'></td></tr>"
response.write "<tr><td>" & font & "Url</td><td><input size='35' type='text' name='url' value='http://'></td></tr>"
response.write "<tr><td>" & font & "Beskrivelse</td><td><input size='55' type='text' name='beskrivelse'></td></tr>"
response.write "<tr><td>" & font & " </td><td><input type='submit' value='Opret'></td></tr>"
response.write "</table></form>"
response.write "</font></body></html>"
end if
%>
