kajko hos brinkster eller fel kod?

PLksMedlem sedan sep. 2004201 inlägg

Frågan11 maj 2005 16:13#1

Försöker kolla sidan "skarpt"

<html>
<head>
<title>P93s G&auml;stbok</title>
<style TYPE="text/css"><!-- 
a:link {color:#FFcc00; text-decoration: underline
a:visited {color:#FFcc00; text-decoration: none}
a:active {color:#FFcc00; text-decoration: underline}
a:hover {color:#000080; text-decoration: none}
--></style>
<style type="text/css">
<!--
.style2 {color: #FFCC00}
.style3 {color: #FFCC00; font-size: xx-large; }
.style4 {color: #FFCC00; font-size: large; }
.style5 {font-size: xx-large}
.style6 {font-size: large}
.style7 {color: #FFCC00; font-size: medium; }
-->
</style>
<%  dim minCon 'Connection
     dim rsGbok 'recordsetten f&ouml;r nya inl&auml;gg
     dim strSQL

dim indag, dat
Session.LCID = 1053 
function fix(S)
  if S > 2 AND S <= 20 then 
     fix = S & "e"
	 Else
  if S > 23 AND S <= 30 then
   fix = S & "e"
    Else
    fix = S & "a"
  end if
  end if
 end function
 'byta ut första bokstaven
Function FirstVersal(txt)
      versal = UCase(Left(txt,1)) & LCase(Right(txt, Len(txt)-1))
  FirstVersal = versal
End Function
%>
</head>
<body><img src="images/spifbanner.jpg" width="742" height="170">
<table width="740" border="0">
  <tr>
    <td width="182" height="63" scope="col"><img src="images/pojkar100.jpg" width="175" height="75"></td>
    </td>
      <TD nowrap bgcolor="#0000FF">&nbsp;&nbsp;&nbsp;&nbsp;<span class="style4">G&auml;stbok </span>
	  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="p93_skriv.asp" target="_blank" class="style7">Skriv nya inlägg</a></TD>
  </tr>
</table>
	<%Set minCon = Server.CreateObject("ADODB.Connection")

set rsGbok = Server.CreateObject("ADODB.Recordset")

minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\spifbasket\db\guests.mdb")
strSQL =" SELECT * FROM guestbook ORDER by ID DESC"
rsGbok.Open strSQL, minCon, 3, 3
Do While Not rsGbok.EOF
//'eftersom sidan ligger på en amerikansk server så har vi 6 timmars tidsdifferens
indag = Cdate(rsGbok("Datum"))
vdag = DateAdd("h",6,indag)
dat = FirstVersal(WeekDayName(WeekDay(vdag)))&"en "& " den " & fix(DatePart("d", vdag)) & "  " & MonthName(Month(vdag)) &" kl " & FormatDateTime(vdag,4) 
Response.Write "<P>" & dat & " skrevs följande:</P>"
//' i VBScript kan man inte använda sig utav radbrytningar därför behövs följande: Replace(rsGbok("Message"), vbCrLf, "<br>" & vbCrLf)
Response.Write "<P><B><FONT SIZE=""4""><I>" & Replace(rsGbok("Message"), vbCrLf, "<br>" & vbCrLf) & "</I></FONT></B></P><BR><B><U>"
Response.Write "      av:"
Response.Write "</U></B>   " & rsGbok("Namn")
Response.Write "<BR><A HREF=""mailto:" & rsGbok("Epost") & """>Skicka insändaren E-post:  </A>"
Response.Write "<P></P><P></P><HR></HR>"

  rsGbok.MoveNext

  Loop
  rsGbok.Close
  Set rsGbok = Nothing
  minCon.Close
  Set minCon = Nothing
%>
</body>
</html>

Brinkster kan ej ladda - utan fel utskrift
Samma sak med

<html>
<head>
<title>skriv</title>
<style TYPE="text/css"><!-- 
a:link {color:#FFcc00; text-decoration: underline
a:visited {color:#FFcc00; text-decoration: none}
a:active {color:#FFcc00; text-decoration: underline}
a:hover {color:#000080; text-decoration: none}
--></style>
<style type="text/css">
<!--
.style2 {color: #FFCC00}
.style3 {color: #FFCC00; font-size: xx-large; }
.style4 {color: #FFCC00; font-size: large; }
.style5 {font-size: xx-large}
.style6 {font-size: large}
.style7 {color: #FFCC00; font-size: medium; }
-->
</style>
</head>
<body><img src="images/spifbanner.jpg" width="742" height="170">
<table width="740" border="0">
  <tr>
    <td width="182" height="63" scope="col"><img src="images/pojkar100.jpg" width="175" height="75"></td>
    </td>
      <TD nowrap bgcolor="#0000FF">&nbsp;&nbsp;<span class="style4">Skriv i g&auml;stboken </span></TD>
  </tr>
</table>
	<%
namn = trim(Request.Form("namn"))
Epost = trim(Request.Form("mail"))
Message = trim(Request.Form("message"))

if namn = "" or Epost = "" or Message = "" then
if request.form("skriv") <> "" then response.write "Du måste fylla i alla fält<br>"

%>
    <table width="710" border="1" align="center" bordercolor="#FFFFFF" bgcolor="#0000FF">
      <tr>
        <td><form name="skriv" method="post" action="p93_skriv.asp?cmd=Send">
            <p><br>
              <span class="style2">Namn:</span><br>
              <input type="text" name="namn" size="50" value="<%=Server.htmlencode(namn)%>">
            </p>
            <p><span class="style2">E-post</span><br>
                <input type="text" name="mail" size="50" value="<%=Server.htmlencode(Epost)%>">
          </p>
            <p><span class="style2">Meddelande:</span><br>
                <textarea name="message" cols="70"><%=Server.htmlencode(Message)%></textarea>
            <p align="right">
              <input type="submit" name="skriv" value="Lägg till">
        </form>
		</td>
      </tr>
</table>
    <%
end if

if namn <> "" and Epost <> "" and Message <> "" then
	Set gbok = Server.CreateObject( "Adodb.Connection" )
	gbok.Provider = "Microsoft.Jet.OLEDB.4.0"
	MdbFilePath = Server.MapPath("\spifbasket\db\guests.mdb")
	gbok.ConnectionString = "Data Source='" & MdbFilePath & "'"
	gbok.open
	strSQL = "INSERT INTO guestbook(namn, Epost, Message, Datum) VALUES('" & namn & "','" & Epost & "','" & Message & "','" & now() & "')"
	gbok.Execute( strSQL )
	Set gbok = Nothing
	Response.Redirect "p93_gbok.asp"
End If

 %>
  
</body>
</html>

GuffaMedlem sedan juni 2004533 inlägg

11 maj 2005 18:36#2

Vad menar du med att den inte kan ladda? Vad är det med utskriften som blir fel?