Skrive i flere db ved hjælp af check boxe..
Jeg har prøvet at omskrive et script men er ikke rigtigt lykkes...Jeg vil prøve om jeg kan skrive i flere db'er ved at 'krydse' dem af i siden...
Min adm. side har denne kode - hvordan vil den skulle se ud med checkboxe mm. for at det skal kunne lykkes??..:o)
If Request.Form("nyhed")<>"" And Request.Form("navn")<>"" Then
strNyhed = Replace(Request.Form("nyhed"), vbcrlf, "<br>")
strNyhed = Replace(strNyhed, "'", "''")
strNavn = Replace(Request.Form("navn"), "'", "''")
strSQL = "Insert into Nyheder ("
strSQL = strSQL & "Nyhed, "
strSQL = strSQL & "Dato, "
strSQL = strSQL & "IndsatAF) "
strSQL = strSQL & "values("
strSQL = strSQL & "'" & strNyhed & "', "
strSQL = strSQL & "'" & Request.Form("dato") & "', "
strSQL = strSQL & "'" & strNavn & "') "
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
Response.Redirect ("pw_admin.asp")
Else
Response.Write "<center><b>Du skal udfylde begge felter, ellers bliver der IKKE <br>oprettet nogen nyhed!</b></center><br>"
%>
<FORM method="post" action="pw_opret.asp" name="pwopret">
<table border=1 cellspacing=0 cellpadding=3 width="500" align=center>
<tr><td width="70%">
Oprettet <% Response.Write FormatDateTime(Now, vbGenerel) %>
<input type="hidden" name="dato" size="30" readonly=yes value="<% Response.Write FormatDateTime(Now, vbGenerel) %>"></td>
<td width="30%">
<input type="text" name="navn" size="20" value="Dit navn/kaldenavn..">
</td></tr><tr><td colspan="2">
<TEXTAREA NAME="nyhed" ROWS="5" COLS="60" WRAP="off">
Skriv nyhed her...</TEXTAREA>
</td></tr><tr><td colspan="2">
<INPUT TYPE="Submit" VALUE="Opret nyhed">
<INPUT TYPE="Reset" VALUE="Nulstil alt">
</td></tr></table>
</FORM>
<%
End if
