Hjælp til at ændre udseendet på en side
Jeg søger en person som vil hjælpe mig med at ændre lidt på udseendet udfra disse koder.Det skal lige siges at jeg er helt grøn når det glæder koder & at siden er en som jeg har fået lavet.
Jeg havde forstillet meg det sådan at:
Præmie beskrivelse og billeder i venstre side
Spørgsmål og adresse i højre side
Og
Sponser oplysninger nedenunder i midten
Her er koderne
------------------------------------
<!--#include file="dsn.asp"-->
<%
Session.LCID = 1030
set rs = Server.CreateObject("ADODB.Recordset")
set rsGruppe = Server.CreateObject("ADODB.Recordset")
set rsPraemie = Server.CreateObject("ADODB.Recordset")
id = Request("id")
if id = "" then
id = 1
end if
function Two(S)
two = CStr(S)
while len(two)<2
two = "0" & two
wend
end function
function Dato(strDato)
'if databaseSel = "MySQL" then
da = Two(Year(strDato)) & "-" & Two(Month(strDato)) & "-" & Two(Day(strDato))
'else
' da = Two(Month(strDato)) & "-" & Two(Day(strDato)) & "-" & Two(Year(strDato))
'end if
Dato = da
end function
overrule=Request.QueryString("testthis")
if overrule="visfortest" then
overrule = true
else
overrule = false
end if
if databaseSel = "MySQL" then
if overrule = false then
SQLgruppe = "SELECT *, DATE_FORMAT(startDato,'%d-%m-%Y') AS startDatoS, DATE_FORMAT(slutDato,'%d-%m-%Y') AS slutDatoS FROM spmGruppe "
SQLgruppe = SQLgruppe & "WHERE slutDato >= '" & dato(Now) & "' AND aktiv=1;"
else
SQLgruppe = "SELECT *, DATE_FORMAT(startDato,'%d-%m-%Y') AS startDatoS, DATE_FORMAT(slutDato,'%d-%m-%Y') AS slutDatoS FROM spmGruppe "
SQLgruppe = SQLgruppe & " WHERE GruppeID = " & Request("ID") & ";"
end if
else
if overrule = false then
SQLgruppe = "SELECT *, FORMAT(startDato,'dd-mm-yyyy') AS startDatoS, FORMAT(slutDato,'dd-mm-yyyy') AS slutDatoS FROM spmGruppe "
SQLgruppe = SQLgruppe & "WHERE slutDato >= #" & dato(Now) & "# AND aktiv=1;"
else
SQLgruppe = "SELECT TOP 1 *, FORMAT(startDato,'dd-mm-yyyy') AS startDatoS, FORMAT(slutDato,'dd-mm-yyyy') AS slutDatoS FROM spmGruppe "
SQLgruppe = SQLgruppe & "ORDER BY gruppeID DESC;"
end if
end if
'Response.Write SQLgruppe & "<br>"
Set rsGruppe = Conn.Execute(SQLgruppe)
if NOT rsGruppe.EOF then
aktivKonkurrence = true
findSpmSQL = "SELECT spmTabel.spmGruppeId, spmTabel.spmText, spmTabel.spmSvar, "
findSpmSQL = findSpmSQL & "spmGruppe.gruppeID, spmTabel.id "
findSpmSQL = findSpmSQL & "FROM spmGruppe INNER JOIN spmTabel ON "
findSpmSQL = findSpmSQL & "spmGruppe.gruppeID = spmTabel.spmGruppeId "
findSpmSQL = findSpmSQL & "WHERE spmGruppe.gruppeID="& rsGruppe("gruppeID") &";"
'findSpmSQL = findSpmSQL & "WHERE spmGruppe.gruppeID="&id&";"
'Response.Write findSpmSQL & "<br>"
else
aktivKonkurrence = false
end if
'SQLgruppe = "SELECT * FROM spmGruppe WHERE gruppeID = " & id & ";"
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
spmGruppeId = Request.Form("spmGruppeId")
navn = replace(Request.Form("navn"),"'","")
adresse = replace(Request.Form("adresse"),"'","''")
postnummer = replace(Request.Form("postnummer"),"'","")
bynavn = replace(Request.Form("bynavn"),"'","")
email = replace(Request.Form("email"),"'","")
filmtype = replace(Request.Form("filmtype"),"'","''")
if navn = "" OR adresse = "" OR postnummer = "" OR bynavn = "" OR email = "" then
error_form = true
Response.Write "Alle felter skal udfyldes."
else
strSQL = "SELECT * FROM svarTabel WHERE email = '" & email & "';"
set rs = Conn.execute(strSQL)
if rs.EOF and rs.BOF then
strSQL = "SELECT * FROM svarTabel WHERE navn = '" & navn & "' AND "
strSQL = strSQL & "adresse = '" & adresse & "';"
set rs = Conn.execute(strSQL)
if rs.EOF and rs.BOF then
set rs = Conn.Execute(findSpmSQL)
antalRigtige = 0
svarListe = ""
do while not rs.EOF
svar = Request.Form("" & rs("id"))
if svar = "" then
svar = 2
end if
if CInt(svar) = CInt(rs("spmSvar")) then
antalRigtige = antalRigtige + 1
end if
svarListe = svarListe & svar & ","
rs.MoveNext
loop
svarListe = Left(svarListe,Len(svarListe)-1)
'Response.Write "<br>"
'Response.Write "Svarliste " & svarliste
strSQL = "INSERT INTO svarTabel (spmGruppeId,navn,adresse,postnummer,"
strSQL = strSQL & "bynavn,email,antalRigtige,svarSerie,gaveType) VALUES ("
strSQL = strSQL & "" & id & ", "
strSQL = strSQL & "'" & navn & "', "
strSQL = strSQL & "'" & adresse & "', "
strSQL = strSQL & "'" & postnummer & "', "
strSQL = strSQL & "'" & bynavn & "', "
strSQL = strSQL & "'" & email & "', "
strSQL = strSQL & "" & antalRigtige & ", "
strSQL = strSQL & "'" & svarListe & "', "
strSQL = strSQL & "'" & filmType & "' "
strSQL = strSQL & ");"
'Response.write "<br>" & strSQL & "<br>"
Conn.Execute(strSQL)
%>
<html>
<head>
</head>
<body bgcolor="#EDEEDD"><center><b><br><br><br><br>
Takker for dine svar!<br>
Hvis du har svaret rigtig på alle spørgsmålene er du med i konkurrencen!<br>
<br>
Vinderne får automatisk svar!</b></center>
</body>
</html>
<%
' Response.Write "Tak for din deltagelse.<br>"
' Response.Write "Du er nu med i konkurrence."
else
Response.Write "Du er med i konkurrence!"
end if
else 'strSQL = "SELECT * FROM svarTabel WHERE email = '" & email & "';"
Response.Write "Du er med i konkurrence!"
end if
end if
%>
<% else %>
<html>
<head>
</head>
<body bgcolor="#EDEEDD">
<center>
<% if aktivKonkurrence = true then %>
<%
set rs = Conn.Execute(findSpmSQL)
%>
<!--<p align="center"><b><font size="4">konkurrence</font></b>-->
<!--<table align="center" style="border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)">-->
<table>
<tr><td align="center">
<!-- <table><tr>
<td><b>Præmier<br></td>
</tr></table>-->
<table>
<tr>
<%
SQL = "SELECT * FROM spmPraemie WHERE spmgruppe = " & rsGruppe("gruppeID")
Set rsPraemie = Conn.Execute(SQL)
%>
<% do while not rsPraemie.EOF %>
<td>
<table><tr>
<td><b><%=rsPraemie("premieOverskrift")%></b><br></td>
</tr>
<tr>
<td><%=rsPraemie("premieNavn")%></b>
<br><br></td>
</tr>
<td align="right">
<% if len("" & rsPraemie("premieBillede") & "") > 0 then
Response.Write "<img src=""/" & rsPraemie("premieBillede") & """ alt=""præmie"">"
end if %>
</td>
</tr>
</table>
</td>
<% rsPraemie.MoveNext
if not rsPraemie.EOF then
%>
<td width="10" style="border-right: 1px solid rgb(0,0,0);"> </td>
<td width="10"> </td>
<%
end if
loop %>
</tr>
</table>
</td></tr>
<tr><td align="center">
<table>
<tr>
<% if len("" & rsGruppe("bemerkning")) > 0 then %>
<tr><td align="center"><%=rsGruppe("bemerkning")%>
</td></tr>
<% end if %>
<tr><td align="center">
<br><b>Svar rigtigt på de 3 spørgsmål og deltag i lodtrækningen.<br>
Konkurrencen slutter: <%=rsGruppe("slutDatoS")%></b>
</td></tr>
<tr><td>
<form method="POST" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
<table width="100%" border="0" cellspacing="0" style="border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)">
<tr>
<td style="border-bottom: 1px solid rgb(0,0,0)"><b>Spørgsmål</b></td>
<td style="border-right: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)"> </td>
<td style="border-bottom: 1px solid rgb(0,0,0)"> </td>
<td style="border-bottom: 1px solid rgb(0,0,0)"><b>Svar mulighed</b></td>
</tr>
<%
do while not rs.EOF
%>
<tr>
<td style="border-bottom: 1px solid rgb(0,0,0)"><%=rs("spmText")%></td>
<td style="border-right: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)"> </td>
<td style="border-bottom: 1px solid rgb(0,0,0)"> </td>
<td style="border-bottom: 1px solid rgb(0,0,0)" align="center">
Ja <input type="Radio" name="<%=rs("id")%>" value="1">
Nej <input type="Radio" name="<%=rs("id")%>" value="0">
</td></tr>
<%
Response.Write vbCrLf
rs.MoveNext
loop
%>
</table>
</td></tr></table>
<table align="center">
<input type="hidden" name="id" Value="<%=id%>">
<tr><td>Navn:</td><td> </td><td><input type="text" name="navn" size="30"></td></tr>
<tr><td>Adresse:</td><td> </td><td><input type="text" name="Adresse" size="30"></td></tr>
<tr><td>Postnummer</td><td> </td><td><input type="text" name="postnummer" size="30"></td></tr>
<tr><td>By:</td><td> </td><td><input type="text" name="bynavn" size="30"></td></tr>
<tr><td>Email:</td><td> </td><td><input type="text" name="email" size="30"></td></tr>
<% if len("" & rsGruppe("valg")) > 0 then %>
<tr><td>Jeg foretrækker:</td><td> </td><td><select name="filmtype" size="1">
<% valgmuligheder = Split(rsGruppe("valg"),";")
for i = lbound(valgmuligheder) to ubound(valgmuligheder) %>
<option value="<%=valgmuligheder(i)%>"><%=valgmuligheder(i)%></option>
<% next %>
</td></tr>
<% end if %>
<tr><td> </td><td> </td><td><input type="submit" name="Svar" value="Svar"></td></tr>
</table>
</form>
<table align="center">
<tr>
<td align="center">
<%
if len("" & rsGruppe("sponsorWWW") & "") > 0 then
Response.Write "Sponsoreret af: <br><a href=""http://" & rsGruppe("sponsorWWW") & """>"
if len("" & rsGruppe("sponsorBillede") & "") > 0 then
Response.Write "<img src=""/" & rsGruppe("sponsorBillede") & """ alt=""sponsor"">"
else
Response.write rsGruppe("sponsorNavn")
end if
Response.write "</a>"
else
Response.Write "Sponsoreret af:<br> " & rsGruppe("sponsorNavn")
end if
%>
</td>
</tr></table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<% else 'aktiv konkurrence %>
<P><B>Næste konkurrence starter d. 28-06-2005 - Så kig forbi der</B></P>
<hr width="70%" size="3">
<p> </p>
<div align="center">
<center>
</table>
</center>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<% end if %>
</center>
</body>
</html>
<% end if
Conn.Close
%>
