<OPTION> eller <input type=\"radio\">
Hej med jer.Jeg vil meget gerne have hjælp til dette.
Jeg har en søgemaskine hvor man kan tilføje sin side til en database.
Man kan også tilføje sin side til nogle kategorier. Der hvor man vælger de kategorier fylder de ret meget på siden. Det er fordi at det er <input type=\"radio\">.
Kan man ikke få det til at fylde lidt mindre ved at lave det til <OPTION>?
Men når jeg gøre det sker der et eller andet underligt.
I kan lige få koden her.
<%@ LANGUAGE=\"VBSCRIPT\"%>
<%OPTION EXPLICIT%>
<%Response.Buffer = True%>
<!-- #INCLUDE FILE=\"config.asp\" -->
<!-- #INCLUDE FILE=\"adovbs.inc\" -->
<%
Dim intvalue
Dim intLevel
Dim intLoop
Set objConn = Server.CreateObject (\"ADODB.Connection\")
Set objRec2 = Server.CreateObject (\"ADODB.Recordset\")
objConn.Open strconnect
\'objRec.Open \"cats\", objConn, adOpenStatic, adLockReadOnly, adCmdTable
objRec2.Open \"links\", objConn, adOpenDynamic, adLockPessimistic, adCmdTable
If (Request.Form(\"Password\") = LSAdminPassword) OR (Request.Cookies(\"\"&Session.SessionID&\"\") = LSAdminPassword) Then
\'Update the cookie.
Response.Cookies(\"\"&Session.SessionID&\"\") = LSAdminPassword
\'Add an entry for each category.
For intLoop = 1 to Request.Form(\"field\").Count
objRec2.AddNew
objRec2(\"value\") = Request.Form(\"field\")(intloop)
objRec2(\"LinkName\") = Request.Form(\"LinkTitle\")
objRec2(\"LinkURL\") = Request.Form(\"LinkUrl\")
objRec2(\"LinkDesc\") = Request.Form(\"LinkDesc\")
objRec2(\"LinkAdded\") = Date()
objRec2(\"LinkWord\") = Request.Form(\"LinkWord\")
objRec2(\"OwnerEmail\") = Request.Form(\"OwnerEmail\")
objRec2(\"OwnerName\") = Request.Form(\"OwnerName\")
objRec2.Update
Next
Else
\'If there has been a password entered then it\'s wrong. Hard luck.
If NOT Request.Form(\"Password\") = \"\" Then
Response.Write FONT1 & \"<strong>Fejl!</strong></font><br>\"
End If
End If
\'This sub is rather spiffing. Prints out the thread. Very handy bit of code.
Sub ThreadLinks(intLevel, intvalue)
Dim objRecThread
strSQL = \"SELECT * FROM Cats WHERE ParentID = \"&intvalue&\"\"
Set objRecThread = objConn.Execute(strSQL)
Do While NOT objRecThread.EOF
If intvalue = 0 then
Response.Write \"<br><strong>\"
End If%>
<table border=\"0\" width=\"30%\" height=\"0,1%\">
<tr>
<td>
<FONT face=\"Verdana\" size=\"1\">
<input type=\"radio\" name=\"field\" value=\"<%=objRecThread(\"value\")%>\"><%=objRecThread(\"CatTitle\")%><br>
</font>
</td>
</tr>
</table>
<%
If intvalue = 0 then
Response.Write \"</strong>\"
End If
ThreadLinks intLevel+1,objRecThread(\"value\")
objRecThread.MoveNext
Loop
objRecThread.Close
End Sub %>
<html>
<head>
<title>Websøg - Din Central på Nettet</title>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
</head>
<body bgcolor=\"#006bb6\">
<style TYPE=\"text/css\">
<!--
a:link { color: 000000; text-decoration: none; }
a:hover { color: FF6600; text-decoration: none; }
a:visited { color: 000000; text-decoration: none; }
a:visited:hover { color: FF6600; text-decoration: none; }
// -->
</style>
<CENTER>
<%=LSPageBody1%>
<form method=\"POST\" action=\"addlink.asp\">
<%=FONT1%>Vælg en kategori som du vil tilføje dit link til:<br>
</center>
<%ThreadLinks 0,0%>
<br><br>
<%IF NOT Request.Cookies(\"\"&Session.SessionID&\"\") = LSAdminPassword Then%>
<%=FONT1%>
<input type=\"hidden\" name=\"Password\" VALUE=\"hejsae\" size=\"40\" style=\"border-width:1px;background-color:transparent;font-weight:bold;font-family:verdana;color:FF6600\"><p>
<%End IF%>
<%=FONT1%>Dit navn : <FONT COLOR=\"#FF0000\" size=\"1\">(Fx. <A HREF=\"http://www.nielz.dk\" TARGET=\"_new\">Niels Bertelsen</A>)</FONT><br>
<input type=\"text\" name=\"OwnerName\" size=\"40\" value=\"\" style=\"border-width:1px;background-color:transparent;font-weight:bold;font-family:verdana;color:FF6600\"></p>
<%=FONT1%>Din Email : <FONT COLOR=\"#FF0000\" size=\"1\">(Fx. <A HREF=\"mailto:niels@nielz.dk\">niels@nielz.dk</A>)</FONT><br>
<input type=\"text\" name=\"OwnerEmail\" size=\"40\" value=\"\" style=\"border-width:1px;background-color:transparent;font-weight:bold;font-family:verdana;color:FF6600\"></p>
<%=FONT1%>Sidens navn : <FONT COLOR=\"#FF0000\" size=\"1\">(Fx. <A HREF=\"http://www.nielz.dk\" TARGET=\"_new\">Nielz.Dk - Din Central på Nettet</A>)</FONT><br>
<input type=\"text\" name=\"LinkTitle\" size=\"40\" maxlength=\"70\" style=\"border-width:1px;background-color:transparent;font-weight:bold;font-family:verdana;color:FF6600\"></p>
<%=FONT1%>Sidens adresse : <FONT COLOR=\"#FF0000\" size=\"1\">(Fx. <A HREF=\"http://www.nielz.dk\" TARGET=\"_new\">http://www.nielz.dk</A>)</FONT><br>
<input type=\"text\" name=\"LinkURL\" size=\"40\" value=\"http://\" style=\"border-width:1px;background-color:transparent;font-weight:bold;font-family:verdana;color:FF6600\"></p>
<%=FONT1%>Beskrivelse af siden : <FONT COLOR=\"#FF0000\" size=\"1\">(Fx. På denne side kan du hente alle de nye programmer og du kan chatte med andre folk.)</FONT><br>
<INPUT TYPE=\"text\" SIZE=\"40\" MAXLENGTH=\"70\" NAME=\"LinkDesc\" style=\"border-width:1px;background-color:transparent;font-weight:bold;font-family:verdana;color:FF6600\">
</font></p>
<%=FONT1%>Søgeord : <FONT COLOR=\"#FF0000\" size=\"1\">(Fx. spil, download)</FONT><br>
<INPUT TYPE=\"text\" SIZE=\"40\" MAXLENGTH=\"70\" NAME=\"LinkWord\" style=\"border-width:1px;background-color:transparent;font-weight:bold;font-family:verdana;color:FF6600\">
</font><BR><BR><FONT COLOR=\"#FFCC00\">Du kommer tilbage til denne sidenår linket er tilføjet!</FONT><p>
<input type=\"Submit\" value=\"Tilføj\" name=\"Action\" style=\"border-width:0px;background-color:transparent;font-weight:bold;font-family:verdana;color:FF6600\">
<input type=\"Reset\" value=\"Slet alt\" name=\"Reset\" style=\"border-width:0px;background-color:transparent;font-weight:bold;font-family:verdana;color:FF6600\">
</p>
</form>
<%
\'Clean up a little.
objRec2.Close
Set objRec2 = Nothing
objConn.Close
Set objConn = Nothing
%>
</body>
Hvis i har brug for flere filer for at få det lavet kan i bare lige sende en email til mig på niels@nielz.dk
I kan også se min side på www.websoeg.dk
