All pastes #958473 Raw Edit

Stuff

public text v1 · immutable
#958473 ·published 2008-03-26 19:16 UTC
rendered paste body
Set r9k = con.Execute("SELECT COUNT(*) FROM " & sql_table & " WHERE Kopipe LIKE '" & pbody & "'")
r9kcheck = r9k.Fields.Item(0).Value
If r9kcheck > 0 Then
	Response.Write("You comment was unoriginal.")
	Response.End
End If